Oe ae ae 





_ Programs for Everything 
from Space War Games” 
. te Blackjack... ; 
— from Craps to | Ching! 





57 PRACTICAL 
PROGRAMS & GAMES 
IN BASIC 


OPH UBL 
PROGRAMS & GBAWES 
It) BASIE 


BY Re YOAG S00) 





Radio Shaek 


DIVISION OF TANDY CORPORATION 


FIRST EDITION 


Copyright © 1978 by TAB BOOKS 


Printed in the United States 
of America 


Reproduction or publication of the content In any manner, without express 
permission of the publisher, is prohibited. No liability is assumed with respect 
to the use of the Information herein. 


Library of Congress Cataloging In Publication Data 


Tracton, Ken. 
S57 practical programs & games in BASIC. 


Includes index. 

1. Mathematics—Computer programs. 2. Games—Computer 
programs. 3. Basic (Computer program language) | Title. 
QA76.6.T69 00.16°424  77-19006 
ISBN 0-8306-9987-2 
ISBN 0-8306-1000-6 pbk. 





Preface 


These programs are intended for the computer hobbyist or user who 
has access to a computer system with standard BASIC language 
available. 

The various programs are written in such a manner that they 
will operate even with a simplified subset of full BASIC. The ad- 
vanced programmer, with full BASIC available, can easily modify the 
programs to take advantage of the functions and capabilities of the 
full instruction set. . 

The programs were chosen not just for their intrinsic qualities, 
but also for their role as teaching aids. 

I would like to take this opportunity to thank the following 
people who helped to make this book possible. Alec Grynspan, who 
supplied the Bubble-Sort program; Tom McRoberts, who was able 
to read my notes and typed the manuscript; Laura Semple, who 
drew the final drafts of the flow charts; Jane, who said programming 
is simple; and David, who named my Iguana. 

I would like to extend a special thank you to Construction Data 
Systems, who allowed me access to their time-sharing facility on an 
IBM 370-158 computer systems. 


Ken Tracton 
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BASIC STATEMENTS 


BASIC (Beginners’ All-purpose Symbolic Instruction Code) 
was invented and developed between 1963 and 1964 by John 
Kemeny and Thomas Kurtz of Dartmouth College. Since its first use 
in 1964, BASIC has steadily gained popularity as a high-level compu- 
ter language which the user can easily master. The essential vo- 
cabulary is below: 


Statement 


CHANGE 


DATA 


DEF 


DIM 
END 


FNEND 


FOR-TO 
GOTO 
“OSUB 


IF-THEN 


INPUT 


LET 


NEXT 


ON-GO TO 


PRINT 


RANDOMIZE 


READ 


REM 


Example 


CHANGE N§$ TON 


DATA 15, -8, 76,... 


DEF FNR (X, Y) = 
(X 2 + ¥ 8) 


DIM ZG, 4) 
END 


FNEND 


FOR X = 2 TO 66 
GOTO 100 


GOSUB 100 


IF A = X THEN 100 


INPUT X, Y,... 


LETA=V 


NEXT X 


ON M GO TO 10, 20, 30 


PRINT “LESLIE” 


RANDOMIZE 


READ L, K,... 


REM AREA 


Definition 


assigns to the elements of N the ASCII numeric value 
of the string N$ 


the DATA statement assigns appropriate values to 
the variables listed in the READ statement 


asingle line function is defined by the DEF statement 


dimensions the elements of K as a 3 by 4 matrix 
ends program execution 


a multiline DEF statement must end with a FNEND 
(function end) statement 


defines the FOR, NEXT loop 
transfers execution to line 100 


transfers program control to a subroutine commen- 
cing at 100 


transfers program execution to 100 if the relational 
test is true 


assigns to the variable(s) the values presented by the 
user from a user defined device 


assigns the value of V to A 
returns control to the beginning of the FOR-TO loop 


as M ranges in values from 1 up to Ist, 2nd,...line 


number is transferred control, as follows to GO TO 
Statement 


prints the alphanumeric string within quotation marks 


assures each call to the RND produces a different 
order of random numbers 


reads values from the DATA statement found in the 
same program 


remark is placed in the program to be used only 
during listing as a debugging aid 


Statement 
RESTORE 


RETURN 


STOP 
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Example 


RESTORE 


RETURN 


STOP 


Definition 


restores the data pointer 


feturns program execution to the next instruction 
following the subroutine cal 


produced a random number 


stops program execution 


LIBRARY FUNCTIONS 


ABS absolute value 

ATN arctangent 

ASC converts a ASCII character to its numeric value 
and assigns it 

CHR$ converts a numeric value to its ASCII character 
and assigns it 

COS cosine 

COT cotangent 

DET determinant 

EXP raise e to the x power 

INT truncates to an integer 

LOC determines the position of the pointer 

LOF determines the last storage location in a file 

LOG returns the log (base e) of the argument 

RND produces a random variable 

SGN determines the sign of a variable 

SIN sine 

SQR square root 

TAB positions printing head ofa printer (CRT or LINE) 

TAN tangent 

BASIC COMMAND FUNCTIONS 

BYE terminates time-sharing session 

CATALOG lists names of all files saved 

GOOD-BYE same as BYE 

LIST produced a listing of the current file 

NEW specifies that a new file is being formed 

OLD accesses an existing file 

RENAME allows the name of a current file to be changed 

RUN causes current program to be executed 

SAVE causes current program to be saved (stored) 

SCRATCH deletes the current file 

SYSTEM transfers control from BASIC to the system's 

monitor 

UNSAVE cancels storage of a file 

exponential 

multiplication 

PROGRAMS 


The programs appear in alphabetical order. Each one contains any 
applicable formulae, followed by an example of using the Program, 
the Flow Chart, and lastly, the Program itself. 


1 


ANNULAR SECTIONS 


This program computes the various parameters; moment of 
inerta, polar moment of inertia and area; connected with an annular 
section. 


FORMULAE 


pa t= 4 _ a (ae? - de) 
ANNULAR SECTION != ~@g7 A= = 


®) 


where I and J is in (in.*) and A is in (in.’). 


EXAMPLE 
INSIDE DIAMETER (D1) = 
? 


3 
OUTSIDE DIAMETER (D2) = 
,) 


4.11 

MOMENT OF INERTIA = 10 

POLAR MOMENT OF INERTIA = 20 
AREA OF SECTION = 6.18 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
* END 


12 


ANNULAR SECTIONS, 


PROMPT + INPUT 
D1 

PROMPT + INPUT 
D2 


CALCULATE 
|, JANDA 


OUTPUT 
PARAMETERS 


PROMPT + INPUT 
CONTINUE 
COMMAND 
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ANNULAR SECTIONS 


10 REM THIS PROGRAM COMPUTES THE VARIOUS 
20 REM PARAMETERS CONNECTED WITH AN ANNU- 
LAR 
30 REM SECTION 
40 PRINT “INSIDE DIAMETER (D1) =”; 
50 INPUT D1 
60 PRINT “OUTSIDE DIAMETER (D2) =”; 
65 INPUT D2 
70 LET P =3.14159 
80 LETI= (P*(D2% 4) — (DIt 4)))/6&4 
90 LETJ=I*2 
100 LET A= (P*((D2% 2) — (D14 2)))/4 
110. PRINT “MOMENT OF INERTIA = “;I 
120 PRINT “POLAR MOMENT OF INERTIA = “;J 
130 PRINT “AREA OF SECTION = “5A 
140 PRINT 
150 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
160 INPUTL 
170 IF L=1 THEN 190 
180 STOP 
190 PRINT 
200 GOTO 40 
210 END 
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ARITHMETIC MEAN 


After each sample is entered the computer responds with sample 
number and the current mean. The program will continue to run until 
the operator types an exit or a break command. 


FORMULA 
1 N 
~~ 1 » 
A=— 2 
i=1 
EXAMPLE 
ENTER SAMPLE 


? 
5 | 
N=1 SAMPLE=5 CURRENT MEAN =5 
ENTER SAMPLE 
? 
67 
N=2 SAMPLE = 67 CURRENT MEAN = 36 
ENTER SAMPLE 
? 


5 
N=3 SAMPLE =5 CURRENT MEAN = 25.6666 


ENTER SAMPLE 
? 
45 
N=4 SAMPLE = 45 CURRENT MEAN = 30.5 
ENTER SAMPLE 
? 
12 
N=5 SAMPLE =12 CURRENT MEAN = 26.8000 
ENTER SAMPLE 
? 


123 

N=6 SAMPLE = 123 CURRENT MEAN = 42.8333 
ENTER SAMPLE 
? 
0 

N=7  . SAMPLE = 0 CURRENT MEAN = 36.7142 
ENTER SAMPLE 
? 


*END 


ARITHMETIC MEAN 


ASSIGN 0 
PROMPT + INPUT 
SAMPLE 


CALCULATE 
SAMPLE NUMBER 


+ 
CURRENT MEAN 


OUTPUT 
CURRENT MEAN 
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ARITHMETIC MEAN 


10 


REM THIS PROGRAM COMPUTES THE ARITHME- 
TIC 

REM MEAN 

LET X = 0 

LET N = 0 

PRINT “ENTER SAMPLE”; 

INPUT W 

LETN=N+1 

LET X =X + W 

LET A = X/N 

PRINT “N =”; N, “SAMPLE = ”; W,“CURRENT MEAN 
= "A 

GOTO 50 

END 
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ARITHMETIC PROGRESSION 


From the following information; first term, common difference 
and number of terms, this program computes the arithmetic pro- 
gression. 


FORMULA 
A, A +D,A+2D,...A + ((N— DD) 


EXAMPLE 
FIRST TERM = 
? 


10 

COMMON DIFFERENCE = 
? 

2 

NUMBER OF TERMS = 

? 


5 
FOR TABLE TYPE 1, IF NOT TYPE 0 
? 
1 


ARITHMETIC PROGRESSION 

TERM NUMBER TERM PROGRESSION 
1 10 
2 12 
3 14 
4 16 
5 18 
SUM = 70 

TYPE 1 TO CONTINUE, 0 TO STOP 

? 

0 

*END 
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ARITHMETIC PROGRESSION 


PROMPT + INP 
1ST TERM, DIF, 
TERM + 
PROMPT + INPUT 
TABLE COMMAND 


PAIN 
TERM VALUE, 
+ NUMBER 


“FOR” 
STATEMENT 


CALCULATE 
TERM VALUE 


+ 
UPDATE SUM 


OUTPUT 
TERM NUMBER + 
VAI 


OUTPUT 
SUM 


PROMPT + INPUT 
CONTINUE 
. COMMAND 





ARITHMETIC PROGRESSION 
10 REM THIS PROGRAM COMPUTES ARITHMETIC 
PROGRESSION 
20. ~=—PRINT “FIRST TERM =”; 
30 INPUTA 
40 PRINT “COMMON DIFFERENCE =”; 
50 INPUT D 


60 PRINT “NUMBER OF TERMS =”; 


20 


INPUT N 

PRINT “FOR TABLE TYPE 1, IF NOT TYPE 0”; 
INPUT C 

IF C = 1 THEN 120 

GOTO 140 

PRINT “ARITHMETIC PROGRESSION” 
PRINT “TERM NUMBER”, “TERM VALUE” 
LET J =0 

FORI=0TON-— 1 

LET K =I +1 

LET L =A + (I*D) 

LETJ=J+L 

IF C = 1 THEN 210 

GOTO 220 

PRINT K, L 

NEXT I 

PRINT “SUM = "J 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT X 

IF X = 1 THEN 290 

STOP 

PRINT 

GOTO 20 

END 


BLACKJACK 


Blackjack, or the game of 21, is played against the computer, it being 
the dealer. Cards are dealt from a self-replenishing deck. Standard 


rules are as follows: 


¢ Blackjack wins unless the dealer also gets blackjack, in 


which case there is no winning player. 
¢ The highest score below 21 wins. 


* The dealer must draw a card if he is below 17, but must 


stand if he has 17 or greater. 


¢ Aces count as 11 unless it would force a hand over 21, in 


which case the ace counts as 1. 


EXAMPLE 

RUN 

IF INSTRUCTIONS ARE REQUIRED TYPE YES 
IF NOT TYPE NO 

? 

NO 

***GOOD-LUCK-----MAY THE BEST ONE WIN*** 
THE DEALER HAS A 9 SHOWING 

YOU HAVE A5 AND A 11 

YOUR TOTAL IS 16 

DO YOU WANT A HIT, OR DO YOU STAND 
? 

HIT 

YOUR CARD IS 4 

DO YOU WANT A HIT, OR DO YOU STAND 
? 

STAND 

THE DEALER HAS 12 

THE DEALER DRAWS A 5 

HIS TOTAL IS 17 

YOU HAVE 20 

YOU HAVE WON!!! 

DO YOU WISH TO PLAY AGAIN 

TYPE YES OR NO 

? 

NO 

BLACKJACK SAYS GOOD-BYE 

*END 
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ARE INSTRUCTIONS 
REQUIRED 


BLACK JACK 


OUTPUT 
PLAYER HAS BJ 


OUTPUT 
DEALER HAS WON 





BLACKJACK 


10 REM BLACKJACK 
20 ~=PRINT “IF INSTRUCTIONS ARE REQUIRED TYPE 


YES” 
30 PRINT “IF NOT TYPE NO” 
40 INPUT C$ 


90 =F C$ = “YES” THEN 90 
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210 
220 
230 
240 


290 
260 


270 
280 
290 


300 
310 


320 
330 


IF C$ = “NO” THEN 340 
PRINT “INVALID RESPONSE” 
GOTO 20 
PRINT 
PRINT? ***8 48444444444 BT ACKIACK *8 444444 e eee REID 
PRINT 
PRINT “THE COMPUTER AS THE DEALER, DEALS 
TWO CARDS TO ITSELF” 
PRINT “AND TWO CARDS TO THE PLAYER. THE 
PLAYER'S TWO CARDS” 
PRINT “ARE SHOWN FACE UP, WHILE ONLY ONE OF 
THE DEALER'S” 
PRINT “CARDS IS SHOWN. BOTH THE DEALER AND 
THE PLAYER” 
PRINT “MAY DRAW ADDITIONAL CARDS.” 
PRINT “THE PLAYER'S GOAL IS TO REACH 21 OR 
LESS, BUT” 
PRINT “BE CLOSER TO 21 THAN THE DEALER's 
HAND.” 
PRINT “IF THE PLAYER'S OR THE DEALER’S HAND 
TOTALS” 
PRINT “GREATER THAN 21 HE IS BUSTED! THE 
KING” 
PRINT “THE QUEEN AND THE JACK ALL COUNT AS 
10 POINTS.” 
PRINT “ALL OTHER CARDS EXCEPT THE 
ACE COUNT AS THEIR FACE” 
PRINT “VALUE SHOWS. THE ACE COUNTS AS 11 
UNLESS THIS” 
PRINT “WOULD CAUSE THE HAND TO BE OVER 21, 
IN THAT” 
PRINT “CASE THE ACE COUNTS AS 1.” 
PRINT “IF BOTH THE DEALER AND THE PLAYER 
GET BLACKJACK” 
PRINT “WHICH IS A TWO CARD HAND TOTALING 21” 
PRINT “NEITHER WINS, IT IS A PUSH” 
PRINT “IF THE DEALER’S HAND IS BELOW OR 
EQUAL TO 16” 
PRINT “HE MUST DRAW, AFTER 17 THE DEALER 
MUST STAND” 
PRINT “TO RECEIVE A CARD YOU WANT A HIT-” 
PRINT “TO STOP WHERE YOU ARE, YOU STAND-” 
PRINT 
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PRINT“***GOOD-LUCK-----MAY THE BEST ONE 


WIN***” 
REM 1ST HAND 
RANDOMIZE 
LET D=0 
LET P =D 
GOSUB 820 
LET D1 =C 
GOSUB 820 
LET D2 =C 
GOSUB 890 
LET Pl1=C 
GOSUB 890 
LET P2 =3 
PRINT 
PRINT “THE DEALER HAS A ”;D1;“ SHOWING” 
PRINT “YOU HAVE A ”;P1;“ AND A ”;P2 
PRINT “YOUR TOTAL IS ”;P1 + P2 
LET D = D1 + D2 
LET P = P1 + P2 
IF P = 21 THEN 640 
GOSUB 960 
IF L = 1 THEN 690 
IF D< = 16 THEN 740 
PRINT “THE DEALER HAS ”;D 
PRINT “YOU HAVE ”;P 
IF P > D THEN 620 
REM WIN OR LOSS STATEMENTS 
PRINT “THE DEALER HAS WON!!!” 
GOTO 1060 
PRINT “YOU HAVE WON!!!” 
GOTO 1060 
PRINT “***YOU HAVE BLACKJACK***” 
IF D = 21 THEN 670 
GOTO 560 


PRINT “THE DEALER ALSO HAS BLACKJACK, 


SORRY NO WINNER” 

GOTO 1060 

GOSUB 890 

PRINT “YOUR CARD IS ”;C 

IF P > 21 THEN 600 

GOTO 530 

PRINT “THE DEALER HAS ”;D 


GOSUB 820 
LETD=D+C 

PRINT “THE DEALER DRAWS A ”;C 
PRINT “HIS TOTAL IS ”;D 
IF D > 21 THEN 620 

IF D <= 16 THEN 750 
GOTO 560 

LET C = 1 + INT(11*RND) 
IF C = 11 THEN 850 
GOTO 880 

IF D + C > 21 THEN 870 
GOTO 880 

LETC =1 

RETURN 

LET C = 1 + INT(11*RND) 
IF C = 11 THEN 920 
GOTO 950 

IF P + C> 21 THEN 940 
GOTO 950 

LETC =1 

RETURN 


PRINT “DO YOU WANT A HIT, OR DO YOU STAND” 


INPUT Q$ 
IF Q$ = “HIT” THEN 1020 
IF Q$ = “STAND” THEN 1040 
PRINT “INVALID RESPONSE” 
GOTO 960 
LETL=1 
GOTO 1050 
LET L =0 
RETURN 
PRINT ; 
PRINT “DO YOU WISH TO PLAY AGAIN” 
PRINT “TYPE YES OR NO” 
INPUT L$ 
IF L$ = “YES” THEN 1130 
PRINT “BLACKJACK SAYS GOOD-BYE” 
STOP 
PRINT 
GOTO 20 
END 
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BUBBLE SORT 


This program is actually a subroutine rather than a stand-alone 


program. It is intended to be used in conjunction with larger pro- 
grams which require that data be placed in an array in ascending 


sequence. 
BUBBLE SORT 
10 REM THIS PROGRAM IS A BUBBLE SORT, WHICH 
PLACES THE 
20 REM VALUES IN AN ARRAY IN ASCENDING SE- 
QUENCE 
30 REM IT ISINTENDED TOBEAN EXAMPLE AND 
NOT A 
40 REM SPECIFIC CASE. 
50 REM THIS PROGRAM MAY BE CONVERTED INTOA 
SUBROUTINE 
60 REM FOR USE IN A LARGER PRCGRAM 
70 REM THE ARRAY IS Z OF LENGTH N 
80 REM ZIS ASSUMED TO HAVE BEEN DECLAREDINA 
DIM 
90 REM STATEMENT AND N SET AHEAD OF TIME 
100 LETI=N-1 
110 FORJ=1TOI 
120 LETK=J+1 
130 FORL=NTOKSTEP- 1 
140 ~=OXIF Z(L) > ZQ) THEN 210 
150 REM SAVE FIRST VALUE 
160 LETT =Z(L) 
170 LET ZL) =Z(Q) 
180 LET ZQ) =T 
199 REM IF ZIS THE KEY FOR SORTING MULTIPLE 
200 REM ARRAYS AND EXTRA CODE HERE 
210 NEXT L 
220 NEXTJ 
230 RETURN 
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CHI-SQUARE EVALUATION 
This program computes the chi-square evaluation from the input- 
ed observed and expected frequencies. To terminate the evaluation 
the use simply inputs a 0 for the last expected frequency. 


FORMULA 
xX? . (O1 - E y? 

; Ei 
i=1 

EXAMPLE 

OBSERVED FREQUENCIES = 

? 

10 

EXPECTED FREQUENCIES = 

? 

10 

OBSERVED FREQUENCIES = 

? 

0 

OBSERVED FREQUENCIES = 

? 

0 


CHI-SQUARE = 0 


Sone eeeeEeeeeeeneees 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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CHI-SQUARE EVALUATION 





PRINT CHI-SQUARE 








UPDATE 
CHI-SQUARE 
CALCULATE 






CHI-SQUARE EVALUATION 


10 REM THIS PROGRAM COMPUTES CHI-SQUARE 
20 REM EVALUATION ON THE OBSERVED TO 

30 REM EXPECTED FREQUENCIES 

40 LETJ=0 
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PRINT “OBSERVED FREQUENCIES =” 
INPUT D 

PRINT “EXPECTED FREQUENCIES =” 
INPUT E 

IF E = 0 THEN 130 

LET K = ((D — E)42)/E 

LETJ =J+K 

GOTO 50 

PRINT “CHI-SQUARE = ”;J 

PRINT UERERRARERERRRARSSESHKERH! 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 190 

STOP 

PRINT 

GOTO 40 

END 
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CIRCLE DETERMINED BY THREE POINTS 


The user inputs three noncolinear points, and the program responds 
with the center and the radius of the circle thus generated. 


FORMULAE 
_Ke- Ki _ 
yo -WNrl Ny Ni Xo = K2 — N2Yo 
r= (X3— Xo)’?+ (Y3 — Yo)’ 
Ki = (2 —X1) (X2 +X) + (Y2 — Yi) (Y2 + Yi) 
2(X2 — X1) 
Ko= (X3 — X1)(X3 + X1) + (V3 — Yi)(V3 + Yi) 
2(X3 — X1) 
y, tics y, -Ye~¥o 
X2-X1 X3—-X1 
EXAMPLES 
INPUT X1,Y1 
? 
2,3 
INPUT X2, Y2 
? 
5,4 
INPUT X3, Y3 
? 
6,4.5 
CENTER X0,Y0 = — 1.25,17.25 
RADIUS = 15.10 
TO CONTINUE TYPE 1, IF NOT TYPE 0 
? 
0 
“END 
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CIRCLE DETERMINED BY THREE POINTS 


PROMPT AND 
INPUT 
POINTS 


COMPUTE 
Xo, Yo, R 


PRINT AND 
INPUT CONTINUE 
COMMAND 
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CIRCLE DETERMINED BY THREE POINTS 


10 REM THIS PROGRAM COMPUTES THE CENTER 
AND RADIUS 
20 REM OFACIRCLE FROM 3 NON-COLINEAR POINTS 
30 PRINT “INPUT X1,Y1”; 
40 INPUT X1, Yl 
50 PRINT “INPUT X2,Y2”; 
60 INPUT X2,Y2 
70 ~=PRINT “INPUT X3, Y3”; 
80 INPUT X3,Y3 
90 LET A =(Y2 —- Y1)/(X2 - X1) 
100 =LET B = (¥3 — Y1)/(X3 — X]1) 
110 LETC = ((X2 — X1)*(X2 + X1))* 
+ ((Y¥2 — Y1)*(Y2 + Y1)) 
120.) =S- LET D = C/(2*(X2 — X1)) 
130 = LETE = ((X3 — X1)*(X3 + X1)) + ((Y3 — Y1)* 
(Y3 + Y1)) 
140 ~=LET F = E/(2*(X3 - X1)) 
150 LET YO =(F - D)/(B -- A) 
160 LET XO =F — (B*YO) 
170 ~=LET R = SQR(X3 — X0)T2 + (Y3 — YO)f2) 
180 PRINT “CENTER X0,Y0 = ”;X0;”,”; YO 
190 PRINT “RADIUS = ”;R 
200 PRINT 
210 PRINT “TO CONTINUE TYPE 1, IF NOT TYPE 0” 
220. INPUT L 
230 = IF L=1 THEN 250 


240 STOP 
250 PRINT 
260 GOTO 30 
270 END 
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CIRCULAR SECTIONS 
This program computes the various parameters: moment of 
inertia, polar moment of inertia and area connected within a circular 
section. 


FORMULAE 
CIRCULAR SECTION 1-22 A=2D’ 
64 4 
arD4 
= 30 
where I & J are inin‘ and A = in’? 
EXAMPLE 
RADIUS 
? 
5 


MOMENT OF INERTIA = 490.873 
POLAR MOMENT OF INTERTIA = 981.746 
AREA OF SECTION = 78.5397 


OFESSFSERESEESESEHEEESESESESESESESS 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


CIRCULAR SECTIONS 


PROMPT + 
INPUT RADIUS 


CALCULATE 
PARAMETERS 


OUTPUT 
PARAMETERS 


CONTINUE 
MESSAGE + INPUT 





CIRCULAR SECTION 


10 


REM THIS PROGRAM COMPUTES THE PARA- 
METERS 

REM CONNECTED WITH A CIRCULAR SECTION 
PRINT “RADIUS” 

INPUT R 

LET P = 3.14159 

LET D = 2*R 

LET I = (P*(Dt4))/64 

LET J = I*2 

LET A = (P*(Dt2))/4 

PRINT “MOMENT OF INERTIA = "51 

PRINT “POLAR MOMENT OF INERTIA = ”;J 
PRINT “AREA OF SECTION =”;A 

PRINT CEABERERERERHRSSLEBSRESEEESED 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 180 

STOP 

PRINT 

GOTO 30 

END 
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COMPOUNDED AMOUNTS 


This program applies to an amount of principle placed into an account 
and compounded periodically, with no further deposits. 


FORMULAE 
In(X/Y) 
X=ya+)" nape 
Y= Xa +1)" L= Yy(Q +J)* - 1) 


where N = number of Time periods 

I= interest rate (decimal) L = interest 
Y = present value 
X = future value 


EXAMPLE 

FUTURE VALUE(1) 

PRESENT VALUE (2) 
INTEREST (3) 

PERIODIC INTEREST RATE (4) 
NUMBER OF TIME PERIODS (5) 
ENTER 1 TO 5 

? 

1 

PRESENT VALUE = 

? 

100 

INTEREST RATE = 

? 

10 

NUMBER OF TIME PERIODS = 
? 

4 

FUTURE VALUE = 146.41 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 

1 

ENTER 1 TO 5 

? 

2 
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FUTURE VALUE = 

? 

200 

INTEREST RATE = 

? 

1 

NUMBER OF TIME PERIODS = 
? 

bs) 

PRESENT VALUE =124.18 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

ENTER 1 TO 5 

? 

3 

PRESENT VALUE = 

? 

300 

INTEREST RATE = 

? 

2 

NUMBER OF TIME PERIODS = 
? 

6 

INTEREST =595.80 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

1 

ENTER 1 TO 5 

? 

4 

PRESENT VALUE = 

? 

100 

FUTURE VALUE = 

? 

200 

NUMBER OF TIME PERIODS = 
? 

) 

INTEREST RATE = .15 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 
1 


ENTER 1 TO 5 
? 


5 

FUTURE VALUE = 

? 

500 

PRESENT VALUE = 

? 

250 

INTEREST RATE = 

? 

2 

NUMBER OF TIME PERIODS =3.8 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


COMPOUNDED AMOUNTS 


PRINT OPTIONS 


PROMPT AND 
INPUT DESIRED 
OPTION 


CALCULATE PAINT AND 
DESIRED INPUT OPTION 
OPTION VARIABLES 


PRINT 
OPTION 
RESULT 


PROMPT AND 
INPUT CONTINUE 
COMMAND 
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COMPOUNDED AMOUNTS 


10 REM COMPOUNDED AMOUNTS 
20 PRINT “FUTURE VALUE (1)” 
30 PRINT “PRESENT VALUE (2)” 
40 PRINT “INTEREST (3)” 
50 PRINT “PERIODIC INTEREST RATE (4)” 
60 PRINT “NUMBER OF TIME PERIODS (5)” 
70 PRINT “ENTER 1 TO 5”; 
80 INPUTA 
90 ON A GOTO 100,160,220,280,340 
100 GOSUB 410 
110 GOSUB 440 
120 GOSUB 470 
130 LET X = Y*((1 +DTN) 
140. ~=PRINT “FUTURE VALUE = ”;X 
150 GOTO 390 
160 GOSUB 500 
170 GOSUB 440 
180 GOSUB 470 
190 LET Y = X*((1 +DTN) 
200 PRINT “PRESENT VALUE =”;Y 
210 GOTO 390 
220 GOSUB 410 
230 GOSUB 440 
240 GOSUB 470 
250 LETL =Y*((1 +I1N) - 1) 
260 PRINT “INTEREST = ”;L 
270 GOTO 390 
280 GOSUB 410 
290 GOSUB 500 
300 GOSUB 470 
310 LETI=((X/Y)t(1/N) - 1 
320 PRINT “INTEREST RATE =”; 
330 GOTO 390 
340 GOSUB 500 
350 GOSUB 410 
360 GOSUB 440 
370 LET N = (LOG(/Y))/(LOG( + J) 
380 PRINT “NUMBER OF TIME PERIODS = ”;N 
390 PRINT 
400 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
401 INPUT L | 
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40 


IF L = 1 THEN 404 

STOP 

PRINT 

GOTO 70 

PRINT “PRESENT VALUE = ”; 
INPUT Y 

RETURN 

PRINT “INTEREST RATE ="; 
INPUT I 

RETURN 

PRINT “NUMBER OF TIME PERIODS = ”; 
INPUT N 
RETURN 


PRINT “FUTURE VALUE =”; 


INPUT X 
RETURN 
END 


COORDINATE TRANSLATION AND/OR ROTATION 


This program will compute rectangular-coordinate translation 
and/or rotation. The origin is translated from (0,0) to a new point 
(X, Y) and the X,Y axes are rotated to an angle A to give new axes 
X}Y!. 

FORMULAE 


COORDINATE TRANSLATION 
AND/OR ROTATION 


x' 


_— 
_—-¥ 





X! = XK ~ Xo)Cos a + (Y — Yo)Sin a 
Y! = — XX — Xo0)Sina + YY -— Yo)Cos a 

EXAMPLES 

ANGLE OF ROTATION IN DEGREES= 

? 

45 

COORDINATES OF NEW ORIGIN (X0, YO)= 

? 

5,6 

OLD COORDINATES OF DATA POINT (X1, Y))= 

? 

8,9 

SPECIFIED ROTATION = 45 

NEW COORDINATES OF DATA POINT 

X2 =4.24 

Y2=0 

TYPE 1 TO CONTINUE, 0 TO STOP 

? 


0 
*END 
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COORDINATE TRANSLATION AND/OR ROTATION 


PROMPT AND 
INPUT ANGLE 
OF ROTATION 


PROMPT AND 
INPUT NEW 
ORIGIN 


PROMPT AND 
INPUT OLD 
DATA POINTS 


CALCULATE 
NEW 
DATA POINTS 


PRINT SPECIFIED 
ROTATION 
PRINT NEW 

COORDINATES 


PROMPT AND 
INPUT CONTINUE 
COMMAND 
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COORDINATE TRANSLATION AND/OR ROTATION 


10 


REM THIS PROGRAM COMPUTES RECTANGULAR 
COORDINATE 

REM TRANSLATION AND/OR ROTATION 

PRINT “ANGLE OF ROTATION IN DEGREES = ”; 

INPUT A 

LET B = (A*3.14159)/180 

PRINT “COORDINATES OF NEW ORIGIN (X0, YO) =’: 

INPUT X,Y 

PRINT “OLD COORDINATES OF DATA POINT (X1, Y1) 


INPUT F.C 


LETZ=F-X 
LETW=C-Y 


LET D = (Z*COS(B)) + (W*SIN(B)) 

LET E = — (Z*SIN(B)) + (W*COS(B)) 

PRINT 

PRINT “SPECIFIED ROTATION =";A 

PRINT “NEW COORDINATES OF DATA POINT” 
PRINT “X2 = ”;D 

PRINT “Y2 = ”;E 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 240 

STOP 

PRINT 

GOTO 30 

END 


CRAPS 


The following game-simulation is that of craps. Craps is a game that 
is played with two dice. The object of the game is to either win by 
throwing a7 or an 11 on the first throw, or by matching your throw 
on the following throws. If on the first throw a 2, 3, or a 12 comes up 
you lose automatically; also, if you throw a 7 when looking for a 
match you lose too. 


EXAMPLE 


RUN 

FOR RULES, TYPE RULES, OTHERWISE TYPE GO 
? 

GO 

6 

8 

4 

YOU THROW A 6 YOU WIN BY MATCHING 

TO CONTINUE TYPE Y, IF NOT TYPE N 

? 


Y 

FOR RULES, TYPE RULES, OTHERWISE TYPE GO 
? 

GO 

YOU THROW A 7 YOU WIN 

TO CONTINUE TYPE Y, IF NOT TYPE N 


N 
*END 





30 


40 


PROMPT + INPUT 
RULES OR GO 


CRAPS 


REM THIS PROGRAM SIMULATES THE GAME OF 
CRAPS 


RANDOMIZE 

PRINT “ FOR RULES, TYPE RULES, OTHERWISE 
TYPE GO” 

INPUT R$ 
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IF R$ = “RULES” THEN 90 

IF R$ = “GO” THEN 140 

PRINT “INVALID COMMAND” 

GOTO 30 

PRINT “A 7 OR 11 ON THE FIRST THROW WINS” 
PRINT “YOU CAN ALSO WIN BY THROWING A 
4,5,6,8,9, 10” 

PRINT “ AND MATCHING IT BEFORE THROWING A 
7. IF ON” 

PRINT “THE FIRST THROW A 2,3 OR A 12 COMES UP” 
PRINT “YOU LOSE AUTOMATICALLY” 

LET J =0 

GOSUB 460 

LET D1 =N 

GOSUB 460 

LET D2 =N 

LET D3 = D1 + D2 

LETJ=J+1 

IF J = 1 THEN 260 

IF D3 = D4 THEN 420 

IF D3 = 7 THEN 440 

PRINT “YOU THROW A ”;D3 

GOTO 150 

IF D3 = 7 THEN 320 

IF D3 = 2 THEN 340 

IF D3 = 3 THEN 340 

IF D3 = 12 THEN 340 

IF D3 = 11 THEN 320 

LET D4 = D3 

GOTO 240 

PRINT “YOU THROW A ”;D3;“ YOU WIN” 

GOTO 350 

PRINT “YOU THROW A ”;D3;“ YOU LOSE” 
PRINT 

PRINT “TO CONTINUE TYPE Y, IF NOT TYPE N” 
INPUT L$ 

IF L$ = “Y” THEN 400 

STOP 

PRINT 

GOTO 30 

PRINT “YOU THROW A ”;D3;“YOU WIN BY MATCH- 
ING” 

GOTO 350 


PRINT “YOU THROW A ”;D3;“ SORRY YOU LOSE” 
GOTO 350 

LET N = 1 + INT(6*RND) 

RETURN 

END 
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CURVE TABLES (PLOTTING) 


This program generates a series of data points, with which the user 
can plot curves. The data points generated lie between the values 
given for the starting value and the end point of X. Step size may be 
changed by using a step statement in conjunction with the FOR 
statement. The user must supply the equation of the curve in line 
140. 


EXAMPLE 


(ASSUMING THE EQUATION IS (2*X) + 6) 


STARTING VALUE OF X = 
? 


5 

END VALUE OF X = 
? 

10 

TABLE 

X Y 

) 16 

6 18 

7 20 

8 22 

9 24 

10 26 

TYPE 1 TO CONTINUE,0 TO STOP 
? 

0 

*END 


CURVE TABLES 


PROMPT AND 
INPUT 
END VALUES 


PRINT TABLE 
PRINT “x”, "Y¥" 


CALCULATE 
X,Y 
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CURVE TABLES 


10 REM THIS PROGRAM GENERATES A SERIES OF 

20 REM DATA POINTS, WITH WHICH THE USER CAN 

30 REM PLOT CURVES. THE DATA POINTS GENE- 
RATED 

40 REM LIE BETWEEN THE VALUES GIVEN FOR X 

50 REMIF A STEP SIZE OTHER THAN 1 IS DERIVED 

60 REM USE A STEP STATEMENT WITH THE FOR 


STATEMENTS 
70 ~=PRINT “STARTING VALUE OF X =”; 
80 INPUT X 
90 PRINT “END VALUE OF X =”; 
100 INPUT W 


110 PRINT “TABLE” 
120. ~PRINT “X”,“Y” 
130 FORI=XTOW 


1440 LETY= 
150 PRINT IY 
160 NEXTI 
170 ~—s PRINT 


180 PRINT “TYPE 1 TO CONTINUE,O TO STOP” 
190 INPUTL 
200 IF L=1 THEN 220 


210 STOP 
220. PRINT 
230 GOTO 70 
240 END 
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DAY OF THE WEEK 


This computer program computes the day of the week (e.g., Mon- 
day) from the date entered. The date entered must not be prior 
1753, this is due to changes involving the switch-over from the Julian 
to the Gregorian Calandar. 


EXAMPLE 


RUN 
ENTER DAY(D), MONTH(M) AND YEAR(Y) 
? 


16,02,1977 

THE DAY OF THE WEEK IS WEDNESDAY 
FOR NEXT DATE IN YES, IF NOT 

TYPE NO 

? 

NO 

DAY OF THE WEEK SAYS GOOD-BYE 
*END 
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DAYS OF THE WEEK 


INITIALIZE 
VARIABLES 


CALCULATE 


DAY OF 
WEEK 
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DAY OF THE WEEK 


10 


20 


REM THIS PROGRAM COMPUTES THE DAY OF THE 
WEEK 

REM RESTRICTION: THE DATE MUST BE AFTER 
1752 


LET J$() = “SUNDAY” 

LET J$@) = “MONDAY” 
LET J$() = “TUESDAY” 
LET J3(4) = “WEDNESDAY” 
LET J$6) = “THURSDAY” 
LET J$(6) = “FRIDAY” 


LET J$(7) = “SATURDAY” 

PRINT “ENTER DAY(D), MONTH(™) and YEAR(Y)” 
INPUT D,M,Y 

IF Y > 1752 THEN 150 

PRINT “YEAR MUST NOT BE PRIOR TO 1753” 
GOTO 100 

LET K = INT(0.6 + (1/M)) 

LETL=Y-K 

LET O = M + 12*K 

LET P = L/100 

LET Z1 = INT(P/4) 

LET Z2 = INT(P) 

LET Z3 = INT((5*L)/4) 

LET 24 = INT (13*(0 + 1)/5) 

LET Z =24 + Z3- Z2+Z1+D-1 

LET Z=Z — (7*INT(Z/7)) + 1 

PRINT “THE DAY OF THE WEEK IS ”; J$@) 
PRINT 

PRINT “FOR NEXT DATE TYPE IN YES, IF NOT” 
PRINT “TYPE NO” 

INPUT L$ 

IF L$ = “YES” THEN 340 

IF L$ = “NO” THEN 360 

PRINT “INVALID COMMAND” 

GOTO 270 

PRINT 

GOTO 30 

PRINT “DAY OF THE WEEK SAYS GOOD-BYE” 
END 


DETERMINANT AND INVERSE OF A 2 x 2 MATRIX 


The computer computes the inverse and determinant of a 2 x 2 
matrix supplied by the user. 


EXAMPLE 


ENTER A11,A12 
PY 
5,3 
ENTER A21,A22 
? 
2,1 
ORIGINAL MATRIX 
5 3 
2 1 
INVERSE OF MATRIX 
—-1 4 
2-5 
DETERMINANT = — 1 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


PROMPT AND 
INPUT MATRIX 


COMPUTE 
DETERMINANT 
AND INVERSE 


PRINT 
DETERMINANT AND INVERSE ORIGINAL 
OF 2 x 2 MATRIX MATRIX 
PRINT 
INVERSE OF 
MATRIX 


PRINT 
DETERMINANT 
PROMPT AND 
INPUT CONTINUE 
COMMAND 





DETERMINANT AND INVERSE OF 2 x 2 MATRIX 


10 REM THIS PROGRAM COMPUTES THE DETER- 
MINANT AND 
20 REMINVERSE OF A 2 x 2 MATRIX 
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PRINT “ENTER All, A12”; 
INPUT A,B 

PRINT “A21, A22”; 

INPUT C,D 

LET E = (D*A) — (B*C) 

LET F = D/E 

LETG=- B/E 

LETH =- C/E 

LETI=A/E 

PRINT “ORIGINAL MATRIX” 
PRINT A,B 

PRINT C,D 

PRINT 

PRINT “INVERSE OF MATRIX” 
PRINT F,G 

PRINT HI 

PRINT 

PRINT “DETERMINANT = ”:E 
PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUTL 

IF L = 1 THEN 30 

STOP 

PRINT 

GOTO 30 

END 


DETERMINATE INVERSE OF A 3 x 3 MATRIX 
The user inputs his original matrix, and the computer responds with 
the determinate and the inverse. 


FORMULAE 


MATRIX = ae DET A = AiB2Cs + BiC2As + 
As Bs C; CiBsAz — CiBzA3 — C2B3A1 — CaAsBi 


an Bi yi 
a2 B2 y2 
a3 B3 ‘3 


INVERSE OF MATRIX A = 


oi = (BXC3 — BxC2)/DET A 
a2 = (A3xC2 — A2xC3)/DET A 
a3 = (AzB3 — AsB2)/DET A 
Bi = (B3xC: ~ BiCs)/DET A 
Bz = (AiCs — AsC1)/DET A 
fs = (AsB: — AiBs)/DET A 
yi = (BiC2 — B2Ci)/DET A 
yz = (AXCi — AiC2)/DET A 
ys = (AiBz — A2B1)/DET A 


EXAMPLE 
ENTER 3X3 MATRIX 
? 


1,4,2,2,4,2,3,9, 1 
ORIGINAL MATRIX 
142 

242 

351 

DETERMINANT = 6 
INVERSE OF MATRIX 
~110 

67 — 83 .33 

— 33 1.17 — .67 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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DETERMINANT AND INVERSE OF 3 x 3M 


PROMPT AND 
INPUT 3 x3 
MATRIX 


‘CALCULATE 
DETERMINANT 
AND INVERSE: 


PRINT 
ORIGINAL 
MATRIX 


PRINT 
DETERMINANT 
PRINT INVERSE 

OF 

MATRIX 

PROMPT AND 
INPUT CONTINUE 
COMMAND 





_ 
co) 


SESSSEES 


DETERMINANT AND INVERSE OF 3 x 3 MATRIX 


REM THIS PROGRAM COMPUTES 3 x 3 MATRIX 


OPERATIONS 
PRINT “ENTER 3 x 3 MATRIX” 
INPUT A,B,C,D,E,F,G,H,I 
REM COMPUTE DETERMINANT OF 3*3 
LET M = (A*E*I) + (B*F*G) + (C*H*D) 
LET N = M — (C*E*G) — (F*H*A) — (I*D*B) 
REM COMPUTE INVERSE 
LET O = (E*D — (H°F))/N 
LET P = (G*F) — (D*D)/N 
LET Q = (D*H) — (G*E))/N 
LET R = (H*C) — (B*D)/N 
LET S = ((A*D — (G*Q))/N 
LET T = ((G*B) — (A*H))/N 
LET U = ((B*F) — (E*C))/N 
LET V = ((D*C) — (A*F))/N 
LET W = ((A*E) — (D*B))/N 
PRINT “ORIGINAL MATRIX” 
PRINT A,B,C 
PRINT D,E,F 
PRINT G,H,I 
PRINT 
PRINT “DETERMINANT = ”;N 
PRINT 
PRINT “INVERSE OF MATRIX” 


PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 20 

STOP 

END 
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FACTORIALS 
This program computes by iterative multiplication of the factorial of 
xX. 


FORMULA 
X)& — 1K - 2)... & —X +1) 


X= 5X! = 120 
TYPE 1 TO CONTINUE,0 TO STOP 


ww 


18 

X= 18 X! = 6.40237E15 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


60 





FACTORIALS 


PROMPT AND 
INPUT X 


CALCULATE 
0%) « 0G) 


ISL=1? 


YES NO STOP 


FACTORIALS 
10 REMTHIS PROGRAM COMPUTES THE FACTORIALS 
OF X 
20 REM BY ITERATIVE MULTIPLICATIONS 
30 =PRINT “X=”; 
40 INPUTX 
90 LETZ=1 
60 FORI=1TOX 
70 =LETZ=Z*1 
80 NEXTI 
90 PRINT “X= ";X,“X! = "3Z 
100 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
110. =INPUTL 
1220 =6IF L=1 THEN 140 
130 STOP 
1440 PRINT 
1530 GOTO 30 
160 END 
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FIBONACC! NUMBERS 
This program computes a table of Fibonacci numbers from the first 
two terms entered by the user, who may also specify the maximum 
number of terms. 


FORMULA 
F; = ¢" term in the sequence; For any two terms the 
first term = fi — 2, second term = fi — 1 
fi=fi-1 +fi-2 
EXAMPLE 
ENTER 1ST TERM 
? 
1 
ENTER 2ND TERM 
? 
1 
MAXIMUM NUMBER OF TERMS = 
? 
10 
TABLE OF FIBONACCI NUMBERS 
TERM NO. FIBONACCI NUMBERS 
1 1 
2 1 
3 2 
4 3 
) bs) 
6 8 
7 13 
8 21 
9 A 
10 55 


MAXIMUM NUMBER OF TERMS REACHED 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

ENTER FIRST TERM 
? 

27 
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ENTER SECOND TERM 
? 


963 
MAXIMUM NUMBER OF TERMS = 
? 
5 
TABLE OF FIBONACCI NUMBERS 
TERM NO. FIBONACCI NUMBERS 
1 27 
2 963 
3 990 
4 1953 
5 2943 


MAXIMUM NUMBER OF TERMS REACHED 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


FIBONACCI NUMBERS 


PROMPT AND 
INPUT 
VARIABLES 


PRINT 
TABLE OF NUMBERS 
PRINT 
“TERM NO.” AND 
“EIBONACCI NO.” 


PRINT 
“MAX TERMS 
REACHED" 





FIBONACCI NUMBERS 


SESSSESS 


REM THIS PROGRAM COMPUTES A TABLE OF 
FIBONACCI NUMBERS 

PRINT “ENTER FIRST TERM” 

INPUT A 

PRINT “ENTER SECOND TERM” 

INPUT B 

PRINT “MAXIMUM NUMBER OF TERMS = ” 
INPUT N 

PRINT 

PRINT “TABLE OF FIBONACCI NUMBERS” 
PRINT “TERM NO.”, “FIBONACCI NUMBER” 
LET K = 1 


LETK=K+1 


LETB=Q 

IF K > = N THEN 220 

GOTO 150 

PRINT “MAXEVMUM NUMBER OF TERMS REACHED” 
PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 280 

STOP 

PRINT 

GOTO 20 

END 
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FIRST DERIVATIVE 


The user must supply the expression to complete the assignment 
Statement in line 280. The computer will then derive the first 
derivative of the supplied equation. 


FORMULA 
x >0 
(xy = Le + Ax/2) ~ fix — Ax/2) 
fi @= a 
EXAMPLE 
(ASSUMING THE EQUATION IS X‘2) 
VALUE OF X = 
? 


10 

IF X = 10 THEN F(X) = 100 

AND F’ (X) = 20 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

VALUE OF X = 

? 

20 

IF X = 20 THEN F(X) = 400 

AND F’ (X) = 40 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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FIRST DERIVATIVE 


PROMPT AND 
INPUT X 


CALCULATE SUBROUTINE 
DERIVATIVE FOR 
AND F(X) FUNCTION 


PRINT 
X, F(X), and F 
PROMPT AND 
INPUT CONTINUE 
COMMAND 
NO 


(Xx) 





FIRST DERIVATIVE 
10 REM THIS PROGRAM COMPUTES THE FIRST DE- 
RIVATIVE 


20 REM OF A FUNCTION ENTERED BY THE USER 
30 PRINT “VALUE OF X = ”, 
40 INPUT Y 


6? 
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LET Y =X 

LET Z = (KX*(1E — 04))/2 
LETW=X+Z 

LETV=X-Z 

LET X = W 

GOSUB 280 

LETA=P 

LET X =V 

GOSUB 280 

LET B =P 

LET X = Y 

GOSUB 280 

LETC =P 

LET F = (A ~ B)/2*Z 

PRINT “IF X = ”;Y,“THEN F(X) = ”;C 
PRINT “AND F’ (X) = ”;F 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 


GAMMA FUNCTION AND GENERALIZED FACTORIAL 
This program computes both the gamma function and the 


generalized factorial via polynomial approximation. 
FORMULAE 


Lee) 


r &) =f t-'e- ‘at 


.@] 


rT ®)=(1 + Ay) + A2(¥)?....... As(Y)*)Z 


where Y = fractional part of X 
where Z = _ (X — 1)(X — 2)...... (X — N) 
andX~N=1+Y 


EXAMPLE 


RUN 

TYPE G FOR THE GAMMA FUNCTION OR 
TYPE F FOR THE GENERALIZED FACTORIAL 
? 


G 


ENTER VALUE OF X 
? 


9) 

GAMMA (5) = 24 

TO CONTINUE TYPE Y, IF NOT TYPE N 
? 


Y 

TYPE G FOR THE GAMMA FUNCTION OR 
TYPE F FOR THE GENERALIZED FACTORIAL 
? 


F 

ENTER VALUE OF X 

? 

s) 

o! = 120 

TO CONTINUE TYPE Y, IF NOT TYPE N 
? 


N 
*END 


69 


GAMMA FUNCTION AND GENERALIZED FACTORIAL 


INITIALIZE 
VARIABLES 
PROMPT INPUT 
G ORF 
CALCULATE 


ro 


POLYNOMIAL 
SUBROUTINE 





GAMMA FUNCTION AND GENERALIZED FACTORIAL 


10 REM THIS PROGRAM GENERATES VIA POLY- 
NOMIAL 

20 REM APPROXIMATION THE GAMMA FUNCTION 
30 REM AND THE GENERALIZED FACTORIALS 

40 LET A =0.57717 

590 LET B = 0.98821 

60 LETC = 0.89706 

70 =LET D = 0.91821 

80 LET E = 0.7567 

90 LET F = 0.4822 
100 =LET G = 0.19353 


LET H = 0.03587 

PRINT “TYPE G FOR THE GAMMA FUNCTION OR” 

PRINT “TYPE F FOR THE GENERALIZED FAC- 
TORIAL” 

INPUT A$ 

IF A$ = “G” THEN 190 

IF A$ = “F” THEN 300 

PRINT “INVALID RESPONSE” 

GOTO 120 

PRINT “ENTER VALUE OF X” 

INPUT X 

LET K =X 

LET K=K-1 

IF K > = 0 THEN 260 

PRINT “X MUST BE EQUAL TO OR GREATER 
THAN 1” 

GOTO 190 

GOSUB 490 

IF X - 1) = INT — 1) THEN 410 

GOSUB 570 

GOTO 410 

PRINT “ENTER VALUE OF X” 

INPUT X 

LET K =X 

IF K > = 0 THEN 360 

PRINT “X MUST BE GREATER THAN OR EQUAL 
TO 0” 

GOTO 300 

GOSUB 490 

IF X = INT(X) THEN 390 

GOSUB 570 

PRINT X;"! = "3K 

GOTO 420 

PRINT “GAMMA ("5X;") = ";K 

PRINT 

PRINT “TO CONTINUE TYPE Y, IF NOT TYPE N” 

INPUT L$ 

IF L$ = “Y”’ THEN 470 

STOP 

PRINT 

GOTO 120 

LETJ=1 

LET J =J*K 
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LETK=K-1 

IF K < 1 THEN 540 

GOTO 500 

LETL=K 

LET K =J 

RETURN 

LET Al = 1 + (A*L) + (B*(L12)) + (C*(LT3)) 
LET Al = Al + (D*(L#4)) + (E*(LT5)) + (F*(LT6)) 
LET Al = Al + (G*(L17)) + (H*(LT8)) 

LET K = Al*K 

RETURN 

END 


GAUSSIAN PROBABILITY FUNCTION 


This program computes the Gaussian probability function of X. 


FORMULA 
1 xX? 
{y= — eA — 
(27 2 
EXAMPLES 
X= 
? 
3.2 
F(X) = .00238 


TO CONTINUE TYPE 1, 0 TO STOP 


F(X) = .000133 

TO CONTINUE TYPE 1, 0 TO STOP 
? 

1 

X= 

? 

1.2 

F(X) = .19418 

TO CONTINUE TYPE 1, 0 TO STOP 
? 

0 

*END 
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GAUSSIAN PROBABILITY eral? 


PROMPT + INPUT 
x 


CALCULATE 
#(X) 
OUTPUT 
t (X) 


PROMPT + INPUT 
ONTINUE COMMAND 





GAUSSIAN PROBABILITY FUKCTION 


REM THIS PROGRAM COMPUTES THE GAUSSIAN 
PROBABILITY 

REM FUNCTION OF X 

PRINT “X =”; 

INPUT X 

LET A = EXP( — (X%2)/2) 

LET B = .398942 

LET C = B*A 

PRINT “F(X) = ”;C 

PRINT 

PRINT “TO CONTINUE TYPE 1, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 140 

STOP 

PRINT 

GOTO 30 

END 


GAUSSIAN QUADRATURE 


This program computes the integral f(x)dx for a finite A by the 
6-point Gaussian-Legendre quadrature formula. It should be noted 
that f(x) must be a single-valued function. 


FORMULA 





x” 6 
[ fa 1s 4Di 2 +a-1) 
= 2 -— Ud +C;)? 1+Ci 


ENDPOINT A = 
? 


0 
INTEGRAL = 0.92 
TYPE 1 TO CONTINUE, 0 TO STOP 
> 
0 
*END 
The LET Q statement in line 470 must be completed by the 
user. Any single-valued expression may be used for f(x). 


GAUSSIAN QUADRATURE 


INITIALIZE 
VARIABLES 
PROMPT + INPUT 
A 


CALCULATE SUBROUTINE 


OUTPUT 
“INTEGRAL” G 


PROMPT + INPUT 
ONTINUE COMMAND 
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GAUSSIAN QUADRATURE 


10 


REM THIS PROGRAM COMPUTES THE INTEGRAL 
BETWEEN A 

REM AND INFINITY BY GAUSSIAN QUADRATURE 
LET Cl = .238619 


LET C2 =- Cl 
LET C3 = .661209 
LET C4 =-— C3 
LET C5 = .932470 
LET C6 =— C5 


LET D1 = .467914 

LET D2 = .360762 

LET D3 = .171324 

LET J =0 

PRINT “ENDPOINT A =”; 
INPUT A 

LET X = (2/(1 + Cl)) + (A- 1) 
GOSUB 470 

LET N = (4*D1)/(1 + C1)*2)*Q 
LETJ=J+N 

LET X = (2/(1 + C2)) + (A— 1) 
GOSUB 470 

LET N = ((4*D1)/(1 + C2yt2)*Q 
LETJ=J+N 

LET X = (2/(1 + C3)) + (A- 1) 
GOSUB 470 

LET N = ((4*D2)/(1 + C3)#2)*Q 
LETJ=J+N 

LET X = (2/(1 + C4)) + (A- 1) 
GOSUB 470 

LET N = ((4*D2)/(1 + C4)#2)*Q 
LETJ=J+N 

LET X = (2/(1 + C5)) + (A—- 1) 
GOSUB 470 

LET N = ((4*D3)/(1 + C5)#2)*Q 
LETJ=J+N 

LET X = (2/(1 + C6)) + (A- 1) 
GOSUB 470 

LET N = ((4*D3)/(1 + C6)*2)*2 
LETJ=J+N 

LET G =J/2 

PRINT “INTEGRAL = ”;G 


PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 450 

STOP 

PRINT 

GOTO 120 

LET Q = 

RETURN 

END 
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GENERALIZED MEAN 


This program computes the generalized mean, which becomes equal 
to the arithmetic mean if the T entered by the user is 1, and equal to 
the harmonic mean if the user enters — 1. 


FORMULA 
mt) = (1s x 7) 
7 ( we 1 x K ‘ 
EXAMPLE 
T= 
4 
INPUT SAMPLE 
? 


5 
GENERALIZED MEAN 
M(T) = 5 WHERE T = 4 


where X > 0 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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GENERALIZED MEAN 


INITIALIZE 
VARIABLES 
PROMPT + INPUT 
T 
PROMPT + INPUT 
SAMPLES 


COMPUTE 
MEAN 


OUTPUT 
M(T) AND T 
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GENERALIZED MEAN 


10 


20 


30 


40 


80 


REM THIS PROGRAM COMPUTES THE GENER- 

ALIZED MEAN 

REM IF T =1, THEN THE GENERALIZED MEAN 
M(T) 

REM IS EQUAL TO THE ARITHMETIC MEAN. IF 
T=-1 

REM THEN M(T) IS EQUAL TO THE HARMONIC 
MEAN 

LETJ =0 

LET N =0 

PRINT “T =”; 

INPUT T 

PRINT “INPUT SAMPLE”; 

INPUT X 

IF X = 0 THEN 150 

LET J =J + (XT) 

LETN=N+1 

GOTO 90 

LET G = Q/N)4(1/T) 

PRINT “GENERALIZED MEAN” 

PRINT “M(T) = ”;G, “WHERE T = ”;T 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 230 

STOP 

PRINT 

GOTO 50 

END 


GEOMETRIC MEAN 


This program computes the geometric mean ot the sample entered 
by the user until a 0 is entered for the sample. 


FORMULA 


EXAMPLE 

SAMPLE = 

? 

2 

NUMBER OF SAMPLES = 1 CURRENT SAMPLE = 2 
CURRENT MEAN = 2 

SAMPLE = 

? 





5 

NUMBER OF SAMPLES = 2 CURRENT SAMPLE = 5 
CURRENT MEAN = 3.1623 

SAMPLE = 

? 


0 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


GEOMETRIC MEAN 


INITIALIZE 
VARIABLES 
PROMPT + INPUT 
SAMPLE 
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GEOMETRIC MEAN 


10 


20 


140 


160 


230 
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REM THIS PROGRAM COMPUTES THE GEOMETRIC 
MEAN 

REM AFTER EACH SAMPLE IS ENTERED, THE 
NUMBER OF 

REM SAMPLES, THE CURRENT SAMPLE AND CUR- 
RENT MEAN 

REM IS PRINTED. 

LET Y = 1 

LET N =0 

PRINT “SAMPLE = ”; 

INPUT W 

IF W = 0 THEN 160 

LETN=N+1 

LET Y = Y*W 

LET G = YN(1/N) 

PRINT “NUMBER OF SAMPLES = ”;N,“CURRENT 


SAMPLE = ”;W 
PRINT “CURRENT MEAN = ”;G 
GOTO 70 
PRINT 


PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 


-INPUT L 


IF L = 1 THEN 210 
STOP 

PRINT 

GOTO 50 

END 


GEOMETRIC PROGRESSION 


From the following information: first term, ratio of terms, anu 
number of terms, this program computes the geometric progres- 
sion. 


FORMULA 
A,AR,AR®...,ARN~! 

EXAMPLE 

FIRST TERM = 

? 

10 

RATIO OF TERMS = 

? 

2 

NUMBER OF TERMS = 

? 

5 

FOR TABLE, TYPE 1, IF NOT TYPE 0 

? 


1 


GEOMETRIC PROGRESSION 
TERM NUMBER TERM VALUE 
1 10 

2 20 

3 40 

4 80 

5 160 
SUM = 310 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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GEOMETRIC PROGRESSION 


PROMPT + INPUT 
VARIABLES 
PROMPT + INPUT 
TABLE COMMAND 


PRINT 
TABLE HEADER 


COMPUTER 
PROGRESSION 





GEOMETRIC PROGRESSION 


10 


REM THIS PROGRAM COMPUTES THE VALUES AND 
THEIR SUM 

REM OF A GEOMETRIC PROGRESSION 

PRINT “FIRST TERM =”; 

INPUT A 

PRINT “RATIO OF TERMS =”; 

INPUT R 

PRINT “NUMBER OF TERMS =”; 

INPUT N 

PRINT “FOR TABLE TYPE 1, IF NOT TYPE 0” 

INPUT C 

IF C = 1 THEN 130 

GOTO 160 

PRINT 

PRINT “GEOMETRIC PROGRESSION” 

PRINT “TERM NUMBER’”;,“TERM VALUE”; 

LETJ =0 

FORI=0TON-1 

LET K =I +1 

LET L = A*(RfI) 

LETJ=J+L 

IF C = 1 THEN 230 

GOTO 240 

PRINT K,L 

NEXT I 

PRINT “SUM = ”;J 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT X 

IF X = 1 THEN 310 

STOP 

PRINT 

GOTO 30 

END 
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HARMONIC MEAN 


This program computes the harmonic mean of the samples entered 
by the user, until a 0 is entered for the sample. 


FORMULA 


EXAMPLE 
SAMPLE = 
? 


; 
N = 1 SAMPLE = 2 CURRENT MEAN = 2 
SAMPLE = 

? 


5 

N = 2 SAMPLE = 5 CURRENT MEAN = 2.86 
SAMPLE = 

9 

7 

N = 3 SAMPLE = 7 CURRENT MEAN = 3.56 
SAMPLE = 

? 

0 

TYPE 1 TO CONTINUE, 0 TO STOP 

? 


0 
*END 
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HARMONIC MEANT 


INTHALIZE 
VARIABLES 
PROMPT + INPUT 
SAMPLE 


HARMONIC MEAN 


10 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 


120 
130 
140 
150 
160 
170 
180 
190 
200 


REM THIS PROGRAM COMPUTES THE HARMONIC 
MEAN 

REM OF THE SAMPLES ENTERED BY THE USER 

LET Z =0 

LET N =90 

PRINT “SAMPLE = ”; 

INPUT X 

IF X = 0 THEN 130 

LETN=N+1 

LET Z =Z + (1/X) 

LET H = N/Z 

PRINT “N = ”;N,“SAMPLE = ”;X,“CURRENT MEAN 
=H 

GOTO 50 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 180 

STOP 

PRINT 

GOTO 30 

END 
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HARMONIC NUMBERS 


This program computes the first N harmonic numbers where N is 
entered by the user. 


FORMULA 
1,1+1/2,1+ 1/2 + 1/3, 1 + 1/2 + 1/3 + 1/4, ... 
EXAMPLE 


MAXIMUM TERM NUMBER 

? 

35 

TERM NUMBER TERM VALUE 
1 1 
2 1.5 
3 1.83333 
4 2.08333. 
5 2.28333 
6 2.45 
7 2.99285 
8 2.71785 
9 2.82896 
10 2.92896 
11 3.01987 
12 3.10321 
13 3.18013 
14 3.25156 
15 3.31822 
16 3.38072 
17 3.43955 
18 3.49510 
19 3.54774 
20 3.59773 
21 3.64535 
22 3.69081 
23 3.73429 
24 3.77595 
25 3.81595 
26 3.85442 
27 3.89145 
28 3.92717 
29 3.96165 
30 3.99498 
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TERM NUMBER TERM VALUE 


31 4.02724 
32 4.05849 
33 4.08879 
34 4.11821 
35 4.14678 
36 4.17456 


*END 


PROMPT + INPUT 
MAX TERM# 


INITIALIZE 
VARIABLES 


PRINT TERM # + 
TERM VALUE _/ HARMONIC NUMBERS 


COMPUTE 
HARMONIC 
NUMBERS 


OUTPUT 
K,D 
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HARMONIC NUMBERS 


10 


90 


REM THIS PROGRAM COMPUTES HARMONIC 
NUMBERS 

PRINT “MAXIMUM TERM NUMBER” 

INPUT N 

LET K =0 

LET D=0 

PRINT “TERM NUMBER”, “TERM VALUE” 

FORI=0 TON 

LET K =I +1 

LET C = 1/K 

LETD=D+C 

PRINT K,D 

NEXT I 

PRINT 

END 


HARMONIC PROGRESSIONS 


This program computes from the following information the values of 
A and B, the difference and the number of terms desired. At the 
user’s option a table of progressions may be generated. In either 
case the sum of the number of terms is produced. 


FORMULA 


AA A _A__ 
B,B+D,B+2D,...B+(N— LD 





EXAMPLE 

VALUE OF A = 

? 

10 

VALUE OF B = 

? 

2 

DIFFERENCE = 

? 

3 

NUMBER OF TERMS = 

? 

20 

FOR TABLE TYPE 1, IF NOT TYPE 0 
? 

1 

HARMONIC PROGRESSION 
TERM NUMBER TERM VALUE 
5 

2 

1.25 
.90901 
714286 
.588235 
5 
434783 


-384615 
.344828 
3125 

.280714 


Rese DONAH OP Wh 
- © 
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TERM NUMBER TERM VALUE 


13 .263158 
14 243802 
15 227273 
16 .212766 
17 2 

18 188679 
19 178571 
20 169492 
SUM = 14.4078 


SREKEEKEAREESEEERES SESKESESESEAEKESES TED 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
“END 


HARMONIC PROGRESSIONS 


PROMPT + INPUT 
A 


PROMPT + INPUT 
B 


PROMPT + INPUT 
D 


PROMPT + INPUT 
N 


PROMPT + INPUT 
COMMAND 
FOR TABLE 


OUTPUT 
7 TABLE HEADER 


CALCULATE 
TERM NUMBER 
+ TERM VALUE 


CONTINUE 
MESSAGE + 
INPUT COMMAND 
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HARMONIC PROGRESSIONS 


10 


REM THIS PROGRAM COMPUTES A SERIES OF 
HARMONIC 

REM PROGRESSIONS 

PRINT “VALUE OF A =” 

INPUT A 

PRINT “VALUE OF B =” 

INPUT B 

PRINT “DIFFERENCE = ” 

INPUT D 

PRINT “NUMBER OF TERMS =” 

INPUT N 

PRINT “FOR TABLE TYPE 1, IF NOT TYPE 0” 

INPUT C 

IF C = 1 THEN 150 

GOTO 170 

PRINT “HARMONIC PROGRESSION” 

PRINT “TERM NUMBER”,“TERM VALUE” 

LET J =0 

FORI=0toN-1 

LETK=I+1 

LET L = A/G + (I*D)) 

LETJ=J+L 

IF C = 1 THEN 240 

GOTO 250 

PRINT K,L 

NEXT I 

PRINT “SUM = ”5J 

PRINT ORAREKRABELERRARAERERSHH! 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT X 

IF X = 0 THEN 320 

STOP 

PRINT 

GOTO 30 

END 


HYDROCARBON COMBUSTION 


This program simulates the burning of a hydrocarbon compound; 
complete combustion is assumed, and the option of excess air is 
available. 

FORMULAE 

AIR = 1 + % EXCESS AIR/100 

O2=C +S +H/4 - 0/2 

AF(MOLES) = 02(4.762)AIR 

AF(MASS) = 1.8094(AF MOLES)/.7507C + 0.063H 

+ 2.004S + 0.875N +O 

TOTAL MOLES = 02(4.762 AIR) + H/4 + 0/2 + N/2 
VOLUME % CO: = 100C/M 

VOLUME % SO2 = 100S/M 

VOLUME % H:20 = 100H/2M 

VOLUME % Oz = 100(AIR — 1)02/M 

VOLUME % Nz2 = (100((3.762)AIR(02) + N/2)/M 

EXAMPLE 

RUN 

FOR INSTRUCTIONS TYPE YES, IF NOT TYPE NO 


NO 

ENTER CARBON(C), HYDROGEN(H), OXYGEN(O), SUL- 
PHUR(S), NITROGEN(N) IN THAT ORDER 

? 


1,4,0,0,0 
ENTER PERCENTAGE EXCESS AIR, IF ZERO 
ENT ER 0, EXAMPLE: — 34% ENTER AS 34 


0 

AIR-FUEL RATIO WITH RESPECT TO MOLES = 9.52 
AIR-FUEL RATIO WITH RESPECT TO MASS = 17.19 
TOTAL MCLES OF PRODUCTION = 10.52 
weee**PERCENTAGE OF VOLUME OF PRODUCETS****** 
CARBON DIOXIDE = 9.50% 

SULPHUR DIOXIDE = 0.0% 

WATER = 19.0% 

OXYGEN = 0.0% 

NITROGEN = 71.49% 

oeee** COMPLETE COMBUSTION ASSUMED****** 
TO TRY NEXT COMPOUND TYPE YES 

TO STOP TYPE NO 

NO 

COMBUSTION SAYS GOOD-BYE 

*END 
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HYDROCARBON COMBUSTION 


PROMPT + INPU 
INSTRUCTION 
COMMAND 


OUTPUT | 
INSTRUCTIONS 


COMPUTE MASS 
NOTES + 
PERCENTAGES 


OUTPUT 
RESULTS 
PROMPT + INPU 
CONTINUE COMMAND 
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HYDROCARBON COMBUSTION 


10 
20 


30 


REM THIS PROGRAM COMPUTES THE PERCENT- 
AGES OF THE 

REM PRODUCTS PRODUCED BY HYDROCARBON 
COMBUSTION 

PRINT “FOR INSTRUCTIONS TYPE YES, IF NOT 
TYPE NO” 

INPUT I$ 

IF I$ = “YES” THEN 90 

IF I$ = “NO” THEN 130 

PRINT “INVALID COMMAND” 

GOTO 30 

PRINT “THE AMOUNTS OF EACH EI EMENT MUST 

BE” 

PRINT “ENTERED, EVEN IF THE AMOUNT IS ZERO” 

PRINT “EXAMPLE: — METHANE (CH4) MUST BE 
ENTERED AS” 

PRINT “C;1, H;4, 0;0, S;0, N;0” 

PRINT 

PRINT “ENTER CARBON(C), HYDROGEN(H), OXY- 
GEN(O)” 

PRINT “SULPHUR(S), NITROGEN(N) IN THAT 
ORDER” 

INPUT C,H,0,S,N 

PRINT “ENTER PERCENTAGE EXCESS AIR, IF 
ZERO” 

PRINT “ENTER 0, EXAMPLE: — 34% ENTER AS 34” 

INPUT E 

LET E = 1 + (E/100) 

LET 02 = C +S + (H/4) - (0/2) 

LET A = 02*E*4.762 

LET Al = 1.8094*A 

LET F = (0.7507*C) + (0.063*H) + (2.004*S) 

LET F = (0.875*N) +O + F 

LET Al = Al/F 

LET M = A + (HP4) + (0/2) + (N/2) 

LET C2 = (C*100)/M 

LET S2 = (S*100)/M 

LET H2 = (H*100)/(2*M) 

LET 03 = (100*(E— 1)*02)/M 

LET N2 = (100*((3.762*E*02) +(N/2)))/M 

PRINT 
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PRINT “AIR-FUEL RATIO WITH RESPECT TO 
MOLES = ”;A 

PRINT “AIR-FUEL RATIO WITH RESPECT TO 
MASS = ”;Al 

PRINT “TOTAL MOLES OF PRODUCT = ”;M 

PRINT “******PERCENTAGE VOLUME OF PRO- 
DUCTS******” 

PRINT “CARBON DIOXIDE = ”;C2;” % ” 

PRINT “SULPHUR DIOXIDE = ”;S2;” % ” 

PRINT “WATER = ”;H2;” % ” 

PRINT “OXYGEN = ”;03;” % ” 

PRINT “NITROGEN = ”;N2;” %” 

PRINT ‘‘******CQMPLETE COMBUSTION AS- 
SUMED***4#"”" 

PRINT 

PRINT “TO TRY NEXT COMPOUND TYPE YES” 

PRINT “TO STOP TYPE NO” 

INPUT L$ 

IF L$ = “YES” THEN 510 

PRINT “COMBUSTION SAYS GOOD-BYE” 

STOP 

PRINT 

GOTO 30 

END 


HYPERBOLIC FUNCTIONS 


This program computes the following hyperbolic trigonometric func- 
tions: sinH, cosH, tanH, cscH, secH, cotH. 





FORMULAE 
; _ e-e-* _ 2 
sinHx = _— cscHx = SnHz 
_ &+e% _ 1 
cosH x = — secH x cosH x 
_ e-—e* _ 1 
tanH x = Oper cotH x = fan x 
EXAMPLE 


TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


1 

X= 

? 

4 

SINH 4 = 27.2899 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


2 

X= 

? 

5 

COSH 5 = 74.2099 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 


99 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


4 

x= 

? 

3.5 

CSCH 3.5 = .060449 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


i) 

X= 

12 

SECH 12 = .000012 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


X= 


to *Y 


COTH .3 = 3.43273 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


100 


HYPERBOLIC FUNCTIONS 


PRINT 
OPTIONS 
PROMPT + INPUT 
DESIRED OPTION 


OPTION PROMPT + 
SUBROUTINE INPUT X 





HYPERBOLIC FUNCTIONS 


10 REM THIS PROGRAM COMPUTES HYPERBOLIC 
FUNCTIONS 
20 ~=PRINT “SINH (1)” 
30 PRINT “COSH (2)” 
40 PRINT “TANH @)” 
50 ~—- PRINT “CSCH (4)” 
60 PRINT “SECH (5)” 
70 ~—PRINT “COTH (6)” 
80 PRINT “TYPE A NUMBER 1 TO 6 FOR FUNCTION 
DESIRED” 
90 INPUT C 
100 ONC GOTO 110,160,200,270,320,370 
110 GOSUB 490 
120. GOSUB 520 
130 =LETZ=Y/2 
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140 PRINT “SINH”:X; =“ :Z 
150 GOTO 420 
160 GOSUB 490 
170 GOSUB 40 
180 LETZ=B/2 
190 PRINT “COSH”;X;“ = :Z 
200 GOTO 420 
210  GOSUB 490 
220  GOSUB 520 
230 GOSUB 540 
“0 ©60LETZ=Y/B 
250 PRINT “TANH”; ?? = "Z 
260 GOTO 420 
270  GOSUB 490 
280  GOSUB 520 
290 LETZ=1/(¥/2) 
300 PRINT “CSCH”;X;” = ”:Z 
310 GOTO 420 
320  GOSUB 490 
GOSUB 540 
LET Z = 1/8 /2) 
PRINT “SECH”:X;“ = ”:Z 
GOTO 420 
GOSUB 490 
GOSUB 520 


PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 470 

STOP 


SHSSSESEES REEL 
5 
: 
g 


PSSss 
Ee 


LET Y = EXP(X) — EXP(— X) 
RETURN 
LET B = EXP(X) + EXP( — X) 
RETURN 


SRERL 


END 


—_ 
ne) 


0 


I CHING (THE CHINESE BOOK OF CHANGES) 


The I Ching is a collection of 64 hexagrams used to determine 
possible future events. It was inspired by the ancient Chinese. Each 
hexagram consists of six lines which may be broken (- -) or 
unbroken(---). The user of the I Ching may throw coins or sticks to 
produce the six lines. This program computes the six lines randomly 
on an algorithm using the date and time. The meanings of each of the 
possible 64 hexagrams may be looked up in the Chinese Book of 
Changes (The I Ching). 


EXAMPLE 


RUN 

ENTER DATE AS M,D,Y 

? 

8,28, 1977 

ENTER TIME AS H,M(24 HOUR CLOCK) 
? 


9,56 


TO CONTINUE TYPE Y, IF NOT TYPE N 
? 

N 

THE I CHING SAYS GOOD-BYE 

*END 
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| CHING 


PROMPT + INPUT 
DATE + TIME 
COMPUTE N 


COMPUTE 
Ci!) 


PRINT 
HEXAGRAM 
C(l) = 1 OR 2 
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1 CHING 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


REM THIS PROGRAM SIMULATES THE I CHING 
RANDOMIZE 

PRINT “ENTER DATE AS M,D, Y” 

INPUT M,D,Y 

PRINT “ENTER TIME AS H,M(24 HOUR CLOCK)” 
INPUT H,M1 

LET N = M + (D/30) + (Y/100) + H + (M1/60) 
FORI =1TO6 

LET K = N*RND(O) 

LET K = K — INT(K) 

LET C() = 1 + INT(2*K) 

NEXT I 

FORI=1TO6 

IF C(I) = 1 THEN 170 

PRINT “---” 

GOTO 180 

PRINT “- -” 

NEXT I 

PRINT 

PRINT “TO CONTINUE TYPE Y, IF NOT TYPE N” 
INPUT L$ 

IF L$ = “Y” THEN 250 

PRINT “THE I CHING SAYS GOOD-BYE” 

STOP 

PRINT 

GOTO 30 

END 
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INTEGRAL BETWEEN TWO LIMITS 


This program computes the integral between the limits of finite 
points A and B for single-valued function f(x) by the six-point 
Gauss-Legendre quadrature formula. 


FORMULA 
f roue = 252 , Dif a 
ix] 
EXAMPLE 
Where fx) = 13*Xt2 — 6*XT2 + SIN(X) + LX) 
ENTER ENDPOINTS A,B 
? 
- 1,1 


INTEGRAL = 4.28786 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*“END 
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INITIALIZE 
CONSTANTS 
PROMPT + INPUT 
A,B 


CALCULATE FUNCTION 
INTEGRAL SUBROUTINE 


INTEGRAL BETWEEN TWO LIMITS 





INTEGRAL BETWEEN TWO LIMITS 


10 


REM THIS PROGRAM COMPUTES THE INTEGRAL 
BETWEEN 

REM THE LIMITS A AND B OF F(X) 

LET Cl = .238619 

LET C2 =Cl1 

LET C3 = .661209 

LET C4 = C3 

LET C5 = .932470 

LET C6 =C5 

LET D1 = .467914 
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LET D2 = .360762 

LET D3 = .171324 
LET J =0 

PRINT “ENTER ENDPOINTS A,B” 
INPUT A,B 
LETY=B-A 
LETZ=B+A 

LET X = ((C1*Y) + Z)/2 
GOSUB 500 

LET N = D1*Q 
LETJ=J+N 

LET X = ((C2*Y) + Z)/2 
GOSUB 500 

LET N = D1*Q 
LETJ=J+N 

LET X = ((C3*Y) + Z)/2 
GOSUB 500 

LET N = D2*Q 
LETJ=J+N 

LET X = ((C4*Y) + Z)/2 
GOSUB 500 

LET N = D2*Q 
LETJ=J+N 

LET X = ((C5*Y) + Z)/2 
GOSUB 500 

LET N = D3*Q 
LETJ=J+N 

LET X = ((C6*Y) + Z)/2 
GOSUB 500 

LET N = D3*Y 
LETJ=J+N 

LET G = (Y/2)*J 

PRINT “INTEGRAL = ";G 
PRINT 


PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 


INPUT L 

IF L = 1 THEN 480 
STOP 

PRINT 

GOTO 120 


LET Q = 13*Xt2 —6*XT2 + SIN(X) + 1/X 


RETURN 
END 


INTERACTIVE GROWTH PATTERN 
This program computes a growth pattern between two quantities 
called X and Y, where the existence of Y depends on the destruction 
of an X, but to be just, X can propagate. 


EXAMPLE 

NUMBER OF DESTROYERS (Y) = 

? 

201 

NUMBER OF CREATORS (X) = 

? 

347 

PROPAGATION RATE OF X = 

? 

6 

CHANCE OF MEETING BETWEEN X AND Y = 
? 

.01 

TIME BETWEEN SAMPLE DISPLAYED = 
? 


5 

MAXIMUM GENERATIONS = 

? 

10 

INTERACTIVE GROWTH PATTERN 


CREATOR DESTROYER 
1039 449 
1822 2558 
0 24600 
0 12300 
0 6150 
0 3075 
0 1537 
0 768 

0 384 

0 192 


MAXIMUM NUMBER OF GENERATIONS REACHED 
FOR FURTHER GENERATIONS, TYPE 1, IF NOT 0 
? 


1 
MAXIMUM GENERATIONS = 
? 
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co) 


oooocoocooco.;r§,: 


ALL GROWTH ENDED 

NUMBER OF GENERATIONS = 18 

FOR NEXT PATTERN TYPE 1, 0 TO STOP 
? 


0 
*END 


PROMPT + INPUT 
SYSTEM VARIABLES 
PRINT 
TABLE HEADER 


CALCULATE 
GROWTH 
PRINT 
MAX GENERATIONS 
REALIZED 
PRINT GENERATION 
CONTINUE 
OMMAND 


PAINT 
GROWTH ENDED 


OUTPUT 
OF GENERATION 


INTERACTIVE GROWTH PATTEAN 
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INTERACTIVE GROWTH PATTERN 


10 


20 


REM THIS PROGRAM COMPUTES THE GROWTH 
PATTERN BETWEEN 

REM A QUANTITY Y THE DESTROYER AND A 
QUANTITY X 

REM THE CREATOR. X CAN PROPAGATE, ANDONA 

REM CHANCE METTING BETWEEN X AND Y, X IS 
DESTROYED, 

REM THUS INCREASING THE NUMBER OF YS. 

PRINT “NUMBER OF DESTROYERS (Y) =”; 

INPUT Y 

PRINT “NUMBER OF CREATORS (X) ="; 

INPUT X 

PRINT “PROPAGATION RATE OF X =”; 

INPUT Z 

PRINT “CHANCE OF METTING BETWEEN X AND Y 

INPUT A 

PRINT “TIME BETWEEN SAMPLES = "; 

INPUT H 

PRINT “MAXIMUM GENERATIONS = ”; 

INPUT K 

LET J =0 

PRINT 

PRINT “INTERACTIVE GROWTH PATTERN” 

PRINT 

PRINT “CREATOR”, “DESTROYER” 

IF J = K THEN 470 

LETJ=J+1 

LET B = A*X*Y 

LET C = ((Y — B)*H) + Y 

IF C < 0 THEN 390 

LET Y =C 

LET D = (((X*Z) — B)*H) + X 

IF D < 0 THEN 140 

LET X =D 

LET M = INT) 

LET N = INT(Y) 

PRINT M,N 

IF M = 0 THEN 370 

GOTO 230 

IF N = 0 THEN 430 

GOTO 230 
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LET Y =0 

GOTO 290 

LET X =0 

GOTO 320 

PRINT “ALL GROWTH ENDED” 

PRINT “NUMBER OF GENERATIONS = ":J 

PRINT 

GOTO 560 

PRINT “MAXIMUM NUMBER OF GENERATIONS 

REACHED” 

PRINT 

PRINT “FOR FURTHER GENERATIONS TYPE 1, IF 
NOT 0” 

INPUT W 

IF W = 1 THEN 530 

GOTO 560 

PRINT “MAXIMUM GENERATIONS = ”; 

INPUT K 

GOTO 230 

PRINT 

PRINT “FOR NEXT PATTERN TYPE 1, 0 TO STOP” 

INPUT W 

IF W = 1 THEN 610 

STOP 

PRINT 

GOTO 60 

END 


INVERSE HYPERBOLIC FUNCTIONS 


This program computes the following hyperbolic trigonometric func- 
tions: sinH- ', cosH~', tanH-', cscH~ ', secH-! cotH-! 


FORMULAE 
sin H- x = In(X + (x? + 1)°) 


cos H~'x = In(x + (x? - 1) 





yet (+=) 
tan H- x = 9 N\y-y 
1 
csc H-'x =sin H-'\y 
sec H- x = cos a-(2) 


1 
cot H- ‘x= tan H- (2) 


EXAMPLE 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


1 

X= 

? 

12 

SINH — 1 12 = 3.17979 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 

2 

X= 

? 

45 

COSH — 1 45 = 4.49969 

TYPE 1 TO CONTINUE, 0 TO STOP 

? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


3 
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X= 

? 

-00055 

TANH — 1 .00055 = .00055 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 

4 

x= 

? 

23 

CSCH — 1 23 = .04346 

TYPE 1 TO CONTINUE, 0 TO STOP 

? 

1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 


~ eo 


125 

SECH — 1 .125 = 2.76866 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 


COTH — 1 8 = .12566 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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INVERSE HYPERBOLIC FUNCTIONS 


PRINT 
OPTIONS 
PROMPT + INPUT 
DESIRED OPTION 
CALCULATE P| OPTION PROMPT + INPUT 
OPTIONS SUBROUTINE x 


OUTPUT 
RESULT OF OPTION 
PROMPT + INPUT 
ONTINUE COMMAND 





INVERSE HYPERBOLIC FUNCTIONS 


10 REM THIS PROGRAM COMPUTES INVERSE HYPER- 
BOLIC FUNCTIONS 

20 PRINT “SINH — 1 (1)” 

30. PRINT “COSH — 1 (2)” 

40 PRINT “TANH -— 1 (3)” 

50 PRINT “CSCH — 1 (4)” 

60 PRINT “SECH — 1 (5)” 

70 PRINT “COTH — 1 (6)” 
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PRINT “TYPE A NUMBER 1 TO 6 FOR FUNCTION 
DESIRED” 

INPUT C 

ON C GOTO 110,150, 190,230, 280,330 

GOSUB 440 

GOSUB 470 

PRINT “SINH — 1”;X;” = "3Z 

GOTO 370 

GOSUB 440 

GOSUB 490 

PRINT “COSH — 1’;X;” = ";Z 

GOTO 370 

GOSUB 440 

GOSUB 510 

PRINT “TANH — 1”°;X;” = ";Z 

GOTO 370 

GOSUB 530 

GOSUB 470 

LETX=A 

PRINT “CSCH — 1”";X;” = ";Z 

GOTO 370 

GOSUB 530 

GOSUB 490 

LETX=A 

PRINT “SECH — 1”;X;” = ";Z 

GOTO 370 

GOSUB 530 

GOSUB 510 

LETX=A 

PRINT “COTH — 1";X;” = ";Z 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 420 

STOP 

PRINT 

GOTO 80 

PRINT “X =”; 

INPUT X 

RETURN 

LET Z = LOG + SQR((X#2) + 1)) 

RETURN 

LET Z = LOG(X + SQR((Xf2) - 1)) 


RETURN 

LET Z = (LOG((1 + X/(1 — X)))/2 
RETURN 

PRINT “X =”; 

INPUT X 

LET A=X 

LET X = 1/X 

RETURN 

END 
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L-PAD MINIMUM LOSS SYSTEM 
In systems where two resistive stages must be coupled, a minimum 
loss L-pad can be used for matching. A typical application for this pad 
would be to couple inputs and outputs of audio circuits. The user 
inputs the two impedances Z: and Z2; the program responds with the 
L-pad resistors Ri and R2, and also the system loss in decibels. 
FORMULAE 

L PAD MIN LOSS 

Ri 


<Z7{—> R2 <a 22—p> Zi >Z2 


Zi 
22 
R2= 1- 22 
Zi 
Loss = 20g ( fz: , {x -1) 
. 22 Za 
EXAMPLE 
1ST IMPEDANCE 
? 
300 
2ND IMPEDANCE 
? 
75 


COMPONENTS OF THE L-PAD 
RESISTOR 1 = 259.807 

RESISTOR 2 = 86.6025 

LOSS IN DECIBELS = 11.4389 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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L-PAD MINIMUM LOSS SYSTEM 


PROMPT + INPUT 
“IMPEDANCES” 


CALCULATE 
COMPONENTS 
OF 


JT AND T SYS. 


PRINT 
“COMPONENTS” 


OUTPUT 
RESISTOR VALUES 
OUTPUT 
LOSS IN DECIBELS 


PROMPT + INPUT 
CONTINUE COMMAND 
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L-PAD MINUMUM LOSS SYSTEM 


10 REM THIS PROGRAM COMPUTES THE VALUES OF 

20 REM THE TWO RESISTANCES REQUIRED TO CON- 
STRUCT A 

30 | REML-PAD OF MINIMUM LOSS 

40 PRINT “1ST IMPEDANCE” 


50 INPUT Z1 
60 PRINT “2ND IMPEDANCE” 
70 ~=INPUT Z2 


80 LET R1 = Z1*SQR(Q — (22/Z1)) 
90 LET R2 = Z2/SQR(1 — (22/Z1)) 
100 LET M = SQR(Z1/Z2) + SQR((Z1/Z2) - 1) 
110 LET L = 20*(LOG(M)/LOG(10)) 
120 PRINT “COMPONENTS OF THE L-PAD” 
130. =PRINT “RESISTOR 1 = ”;R1 
140 ~PRINT “RESISTOR 2 = ";R2 
150 PRINT “LOSS IN DECIBELS = ”;L 
160 PRINT 
170 ~PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
180 INPUT X 
199 IF X =1 THEN 210 


200 STOP 
210 PRINT 
220 GOTO 40 
230 END 
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LINEAR INTERPOLATION 
If Y is a function of X, and Y: — Y2 are the values of the function at 
Xi — X2, respectively, Y may be computed for any value of X. 
FORMULA 
LINEAR INTEPOLATION 


1(xe) 
f(x 1) 


Se) 2 (x2 — x) Ax) t+(x — x1 (fy) 


X2—- %1 
m x x2 
EXAMPLE 
KNOWN VALUE OF X (X1,X2) = 
? 
10,50 
KNOWN VALUES OF Y (F(X1),F(X2)) = 
? 
15,55 
INTERPOLATE F(X) AT X = 
? 
60 


INTERPOLATED F(X) = 65 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
KNOWN VALUE OF X (X1,X2) = 
? 


43,98 

KNOWN VALUES OF Y (F(X), F(X2)) = 
? 

86,196 

INTERPOLATE F(X) AT X = 

? 

1234 

INTERPOLATED F(X) = 2468 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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LINEAR INTERPOLATION 





PROMPT + INPUT 
KNOWN VALUES 


PROMPT + INPUT 
Xx 


CALCULATE 
F(x) 
OUTPUT 
F (x) 


PROMPT + INPUT 
CONTINUE COMMAND 














LINEAR INTERPOLATION 


10 


20 
30 


REM THIS PROGRAM COMPUTES LINEAR INTER- 
POLATION 

PRINT “KNOWN VALUE OF X (X1,X2) =”; 

INPUT X1,X2 

PRINT “KNOWN VALUES OF Y (F(X1),F(X2)) =”; 

INPUT Y1,Y2 

PRINT “INTERPOLATE F(X) AT X =”; 

INPUT X 

LET G = ((K2 — X)*Y1) + (K — X1)*Y2) 

LET F =G/(X2 — X1) 

PRINT “INTERPOLATED F(X) = ”;F 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 160 

STOP 

PRINT 

GOTO 20 

END 
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LOGARITHMS OF ANY BASE 


This simple program allows the user to compute the value of a 
logarithm to any base. The number X and the base Y must both be 
positive if machine error is not to occur. 


FORMULA 





EXAMPLES 

BASE = 

? 

16 

X= 

? 

54 

LOG 54 = 1.43872 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

1 

BASE = 

? 

567 

X= 

? 

23 

LOG 23 = .494529 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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LOGARITHMS OF ANY BASE 


PROMPT + INPUT 
BASE 
PROMPT + INPUT 
X 


CALCULATE 
LOG Y* 


OUTPUT 
LOG X 


PROMPT + INPUT 
CONTINUE COMMAND 
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LOGARITHMS OF ANY BASE 


10 
20 


30 
40 
50 
60 
70 
80 
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REM THIS PROGRAM WILL COMPUTE THE LOG 

REM OF ANY POSITIVE NUMBER X, TO ANY POSI- 
TIVE 

REM BASE Y 

PRINT “BASE =” 

INPUT Y 

PRINT “X =” 

INPUT X 

LET J = LOG(X)/LOG(Y) 

PRINT “LOG”;X;“ = ";J 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 140 

STOP 

PRINT 

GOTO 40 

END 


MEAN, STANDARD DEVIATION, 
STANDARD ERROR FOR GROUPED DATA 


This program generates the mean, standard deviation and standard 
error for grouped data until the user enters a 0 for the value of the 
frequency. 





FORMULAE 
> fixi 
Mean x = 
Xfi 
S 
Standard error SX = —— 
Vd fi 
Standard deviation S 2 fi ANE 
ta t - 
mdard deviation fal 
EXAMPLE 


ENTER SAMPLE VALUE AND FREQUENCY 
° 

5,2 

ENTER SAMPLE VALUE AND FREQUENCY 
? 


10,3 


ENTER SAMPLE VALUE AND FREQUENCY 
? 

6,1 

ENTER SAMPLE VALUE AND FREQUENCY 
? 

0,0 

NUMBER OF SAMPLES ENTERED = 3 
MEAN = 7.67 


STANDARD DEVIATION = 5.77 
STANDARD ERROR = 2.36 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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MEAN, STANDARD DEVIATION, AND 
STANDARD ERROR FOR GROUPED DATA 


INITIALIZE 
VARIABLES 


PROMPT = INPUT 
SAMPLE = FREQ 


UPDATE COMPUTE 
CALCULATIONS OUTPUT 


OUTPUT 
“STAT” DATA 


PROMPT + INPUT 
CONTINUE COMMAND 
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MEAN, STANDARD DEVIATION, AND 


STANDARD ERROR FOR GROUPED DATA 
10 REM THIS PROGRAM COMPUTES THE MEAN, 
STANDARD 
20 REM DEVIATION AND STANDARD ERROR FOR 
GROUPED DATA 
30 LETA=0 
40 LETB=0 
50 LETC=0 
60 LETD=0 
70 PRINT “ENTERSAMPLE VALUE AND FREQUENCY”; 
80 INPUT X,F 
90 IF F < =0 THEN 170 
100 LETA=A+1 
110 LETB=B+F 
120. LET G=X*F 
130 LETC=C+G 
140 ~=LET E = (X42)*F 
150 LETD=D+E 
160 GOTO 70 
170 LETH =C/B 
180 LET I=SQR(D -— (B*(H#2))) 
1909 LET J = I/SQR(B) 
200 ~=PRINT 
210 PRINT “NUMBER OF SAMPLES ENTERED = ”;A 
220 PRINT “MEAN = ”;H 
230 PRINT “STANDARD DEVIATION =”; 
240 ~=PRINT “STANDARD ERROR = ";J 


250 PRINT 

260 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
270 ~=69INPUT L 

280 IFL=1 THEN 300 

290 STOP 

300 PRINT 

310 GOTO 30 

320. END 
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MOMENTS, SKEWNESS AND KURTOSIS 


This program computes the first four moments where the first 
moment is the mean of the distribution and the second moment is the 
variance. Skewness is the departure of a frequency distribution from 
symmetry, and kurtosis is a property of distribution that expresses 
its relative peakedness. 


FORMULAE 


1 = 
ND W— = 
2° M= M2 : > x2 x? 


4 =M, = — > x,4- AF to 42-8? % x2 - 3x 


M3 
SKEWNESS = y1 = —_ 
M2” 
Ms 
KURTOSIS y 2 = —_—_ 
M2 
EXAMPLE 
NUMBER OF SAMPLES = 
? 
5 
SAMPLE = 
? 
12 
SAMPLE = 
? 
3 
SAMPLE = 
? 
4 


130 


SAMPLE = 
? 
5 
SAMPLE = 
? 


4 

1ST MOMENT = 5.6 

2ND MOMENT = 10.64 

3RD MOMENT = 47.2319 

4TH MOMENT = 347.331 

MOMENT COEFFICIENTS 
SKEWNESS = 1.36089 KURTOSIS = 3.06803 
SSHELKKKAKSCAKESAKSSERKRHERSRKARS 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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MOMENTS, SKEWNESS, AND KURTOSIS 


INITIALIZE 
A, B, C,...TOO 


PROMPT + INPUT 
NUMBER OF 
SAMPLES 


PROMPT + INPUT 
SAMPLES 


CALCULATE 
MOMENTS + 
COEFFICIENTS 
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MOMENTS, SKEWNESS, AND KURTOSIS 


10 REM THIS PROGRAM COMPUTES THE VALUES OF 
THE 
20 REM FIRST 4 MOMENTS, SKEWNESS AND KUR- 
TOSIS 
30 LETA=0 
40 LETB=0 
50 LETC=0 
60 LETD=0 
70 PRINT “NUMBER OF SAMPLES = ” 
80 INPUT N 
909 FORI=1TON 
100 PRINT “SAMPLE =” 
110 INPUT X 
120 LETA=A+X 
130 LET B=B + (X*2) 
1440 LETC=C + Qf3) 
150 LETD=D + (Xt4) 
160 NEXT I 
170 LETJ=A/N 
180 LET E = (B/N) — (t2) 
190 LET F = (C/N) — (G*J*B)/N) + (2*(13)) 
200 LET G = (D/N) —- ((4°J*C)/N) 
210 LETH =G + ((6*Qt2)*B)/N) — (3*(14)) 
220. ~=@LET K = F/(E%(3/2)) 
230 =LETL = H/(—t2) 
240 ~=PRINT “1ST MOMENT = ”;J 
250 PRINT “2ND MOMENT = ”;E 
260 PRINT “3RD MOMENT = ”;F 
270 ~=PRINT “4TH MOMENT = ”;H 
280 PRINT “MOMENT COEFFICIENTS” 
290 PRINT “SKEWNESS = ”;K,“KURTOSIS = ”;L 
300 PRINT ttteeesteseeeereceanee 
310 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
320 INPUT Z 
330 IF Z = 1 THEN 350 


340 STOP 
350 PRINT 
360 GOTO 30 
370 END 
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NO REPETITIONS PROBABILITY 


The user dictates the size of a population to be determined for a “No 
Repetitions” probability. 
FORMULA 


re (Aa) 


where M = N21 


EXAMPLE 
SRAESHKEAEKKASKSEEKEKREREVISH 


TOTAL POPULATION 
? 


56 

SIZE OF SAMPLE 

? 

2 

PROBABILITY = .982143 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

1 


SECEHKACKHEKSESSERBASRASEKAHSEBSH 


TOTAL POPULATION 
? 


9 

SIZE OF SAMPLE 

? 

4 

PROBABILITY = .460905 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 


134 


NO REPETITIONS PROBABILITY 


PROMPT + INPUT 
TOTAL POPULATION 
PROMPT + INPUT 
SIZE OF SAMPLE 


CALCULATE 
PROBABILITY 


KD 


OUTPUT 
PROBABILITY 
PROMPT + INPUT 
CONTINUE COMMAND, 
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NO-REPETITIONS PROBABILITY 
10 REM THIS PROGRAM COMPUTES THE “NO REP- 


ETITIONS” 
20 REM PROBABILITY OF A SAMPLE 
30 PRINT (3ssesese ase? 
35 PRINT “TOTAL POPULATION” 
40 INPUT M 
50 PRINT “SIZE OF SAMPLE” 
60 INPUT N 
70 LETJ=1 


80 FORI=1TON-1 
90 LETK=1- (/M) 
100 LETJ=J*K 


110 = NEXTI 
120 PRINT “PROBABILITY = ”;J 
130 ~=PRINT 


140 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
150 INPUT L 

160 IF L=1 THEN 30 

170 STOP 

180 END 
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NUMBER GUESS GAME 


The object of this game is to guess in as few tries as possible the 
number chosen at random by the computer. (Hint: Use a binary 
search pattern.) 


EXAMPLE 


A RANDOM NUMBER HAS BEEN PICKED 
TRY GUESSING IT, HINT THE NUMBER 
IS FROM 1 TO 100 

GOOD LUCK!!! 

YOUR GUESS IS = 

? 


50 

TOO HIGH, TRY AGAIN 
YOUR GUESS IS = 

? 

25 

TOO HIGH, TRY AGAIN 
YOUR GUESS IS = 

? 

12 

TOO LOW, TRY AGAIN 
YOUR GUESS IS = 

? 


18 

TOO LOW, TRY AGAIN 

YOUR GUESS IS = 

? 

20 

NOT BAD!!!-YOU GOT IT!!! 

YOUR NUMBER OF TRIES WERE 5 


IF YOU WANT TO TRY AGAIN TYPE 1 
IF NOT TYPE 0 
? 


0 
*END 


137 


NUMBER GUESS GAME 


DERIVE 
RANDOM NUMBER 


START MESSAGE 


PROMPT + INPUT 
GUESS 


INCREMENT PAINT 
GUESS COUNTER WINNING MESSAGE 
OUTPUT 


NUMBER OF 
GUESSES 


PROMPT + INPUT 
CONTINUE 
COMMAND 


PRIN 
MESSAGE 


MESSAGE 





NUMBER GUESS GAME 


10 REM THE COMPUTER CHOOSES A NUMBER FROM 
20 REM 1 TO 100 AT RANDOM, THE OBJECT OF 

30 REM THE GAME IS TO GUESS THE CHOSEN 

40 REM NUMBER IN AS FEW GUESSES AS POSSIBLE 
50 LET R =1 + INT(100*RND) 

60 LETY=0 

70 PRINT “A RANDOM NUMBER HAS BEEN PICKED” 
80 PRINT “TRY GUESSING IT, HINT THE NUMBE,.’ 
90 PRINT “IS FROM 1 TO 100” 
100 PRINT “GOOD LUCK!!!” 


110 PRINT 
120 PRINT “YOUR GUESS IS =”; 
130 INPUT X 


LETY=Y+1 

IF X = R THEN 180 

IF X > R THEN 280 

GOTO 300 

PRINT “NOT BAD!!!-YOU GOT IT!!!” 

PRINT “YOUR NUMBER OF TRIES WERE”;Y 
PRINT 

PRINT “IF YOU WANT TO TRY AGAIN, TYPE 1” 
PRINT “IF NOT TYPE 0” 

INPUT L 

IF L = 1 THEN 260 

STOP 

PRINT 

GOTO 50 

PRINT “TOO HIGH, TRY AGAIN” 

GOTO 120 

PRINT “TOO LOW, TRY AGAIN” 

GOTO 120 

END 
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ONE-ARM BANDIT 


This computer program simulates the one-arm bandits that use 
three mechanical wheels. For detailed instructions, type yes to the 
instruction question in the program. 


EXAMPLE 


RUN 

ARE INSTRUCTIONS REQUIRED 

TYPE EITHER YES OR NO 

? 

NO 

CHERRY CHERRY CHERRY 

YOUR TOTAL EARNINGS ARE NOW $89 
TO CONTINUE TYPE Y, IF NOT TYPE N 
? 


N 
ONE-ARM BANDIT SAYS GOOD-BYE 
*END 


ONE-ARM (om) 


C= + INPUT 
C= 
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ONE-ARM BANDIT 


10 


REM THIS PROGRAM SIMULATES THE MECHANI- 
CAL 

REM THREE WHEEL ONE-ARM BANDIT 

PRINT “ARE INSTRUCTIONS REQUIRED” 

PRINT “TYPE EITHER YES OR NO” 

INPUT L$ 

IF L$ = “YES” THEN 100 

IF L$ = “NO” THEN 170 

PRINT “INVALID COMMAND” 

GOTO 30 

PRINT “SCORING IS SIMPLE; 3 ORANGES, LEM- 
ONS OR” 

PRINT “BANANAS EARN $10. 3 CHERRIES EARN 

$90.” 

PRINT “IF THE FIRST FRUIT IS AN APPLE YOU EARN 

$2” 

PRINT “IF THE 1ST AND 2ND ARE APPLES YOU 
EARN $3” 

PRINT “IF THE LAST FRUIT IS A CHERRY AND THE” 

PRINT “OTHER TWO ARE THE SAME BUT NOT AP- 
PLES YOU” 

PRINT “EARN $10. EACH TURN COSTS $1. GOOD- 
LUCK” 

LET J =0 

PRINT 

GOSUB 590 

LET S1=5 

GOSUB 590 

LET $2 =S 

GOSUB 590 

LET $3 =S 

LETS =S1 

GOSUB 610 

LET S1$ = S$ 

LET S = S2 

GOSUB 610 

LET S2$ = S$ 

LET S = 83 

GOSUB 610 

LET S$3$ = S$ 

IF S1$ = “CHERRY” THEN 380 

IF S1$ = “APPLE” THEN 420 
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IF S1$ = S2$ THEN 440 

GOTO 460 

IF S1$ = $2$ THEN 400 

GOTO 460 

IF $2$ = $3$ THEN 480 

GOTO 460 

IF $1$ = S2$ THEN 500 

GOTO 520 

IS $2$ = S3$ THEN 540 

IF S3$ = “CHERRY” THEN 540 


LETJ=J-1 
GOTO 550 
LET J =J + 89 
GOTO 550 
LETJ=J+2 
GOTO 550 
LETJ=J+1 
GOTO 550 
LETJ=J+9 
PRINT 


PRINT S1$;” “;S2$;” “;S3$ 

PRINT “YOUR TOTAL EARNINGS ARE NOW $”;J 
GOTO 720 

LET S = 1 + INT(S*RND) 

RETURN 

ON S GOTO 620, 640, 660, 680, 700 

LET S$ = “CHERRY” 

GOTO 710 

LET S$ = “APPLE” 

GOTO 710 

LET S$ = “LEMON” 

GOTO 710 

LET S$ = “ORANGE” 

GOTO 710 

LET S$ = “BANANA” 

RETURN 

PRINT 

PRINT “TO CONTINUE TYPE Y, IF NOT TYPE N” 
INPUT Z$ 

IF Z$ = “Y” THEN 780 

PRINT “ONE-ARM BANDIT SAYS GOOD-BYE” 


PERMUTATIONS AND COMBINATIONS 
This program computes permutations and combinations, where N is 
the number of items available and R is the size of the groups under 
consideration. 





FORMULAE 
N! N! 
p= C= ——_ 
(N — R)! RIN- R)! 
EXAMPLE 
ENTER N,R 
? 
12,5 


PERMUTATIONS = 95040 
COMBINATIONS = 792 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

ENTER N,R 

? 

23,21 

PERMUTATIONS = 1.2926E22 
COMBINATIONS = 253 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
“END 
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PERMUTATIONS AND COMBINATIONS 


ERROR 
MESSAGE 


iS A<O? 





PERMUTATIONS AND COMBINATIONS 


10 REM THIS PROGRAM COMPUTES PERMUTATIONS 
20 REM AND COMBINATIONS, WHERE N = NUMBER 
OF 
30 REM ITEMS AND R = SIZE OF GROUP SELECTED 
40 PRINT “ENTER N,R”; 
50 INPUT N,R 
60 IFN<R_ THEN 270 
70 IFR<0Q THEN 290 
80 LETT=N 
90 GOSUB 310 
100 LETA=T 
110 LETT=N-R 
120. GOSUB 310 
130 LETB=T 
140 LETP=A/B 
150 LETT=R 
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GOSUB 310 

LET C = A/(T*B) 

PRINT “PERMUTATIONS = ”;P 
PRINT “COMBINATIONS = ”;C 
PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 250 

STOP 

PRINT 

GOTO 40 

PRINT “N < R,INVALID INPUT” 
GOTO 40 

PRINT “R < 0,INVALID INPUT” 
GOTO 40 

IF T = 0 THEN 390 

IF T = 1 THEN 390 


LETJ =1 

FOR I = 2 TOT 
LET J = J*l 
NEXT I 

LET T =J 
GOTO 400 

LET T =1 
RETURN 

END 
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PI-NETWORK IMPEDANCE MATCHING 


Often between two resistive impedanced Z: and Zz a lossless net- 
work is desired. The computer expects the following information: 
Zi — Zz, desired system Q and the operating frequency. 


FORMULAE 


PI-NETWORK 





Z:1>2Z2, f = frequency and Q is desired system Q 














1 1 Xi 22 
Ci= C2=——- L= —(Q’?+1)>1 
2a fXc1 2 7 fXca, 2a7f, Zi 
and where 
22 
Z 
Xa = = Xc2 =; Z2 ; ; 
QZ) 22 
XL= 1+ 
Q? +1 QXc2 
EXAMPLE 
ENTER 1ST IMPEDANCE 
? 
345 
ENTER 2ND IMPEDANCE 
? 
300 
ENTER DESIRED SYSTEM Q 
? 
20 
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ENTER OPERATING FREQUENCY 
? 


500 

COMPONENTS OF PI-NETWORK 
CAPACITOR 1 = 1.84527 E — 5 
CAPACITOR 2 = 1.97846 E — 5 
INDUCTOR = 1.05836 E — 2 

TO CONTINUE TYPE 1, IF NOT 0 
? 

0 

*END 


PROMPT + INPUT 
SYSTEM VARIABLES 


COMPUTE 
COMPONENTS 
OF NETWORK 


OUTPUT 
OMPONENT-VALUE 


PROMPT + INPUT 
CONTINUE 
COMMAND 


PI-NETWORK IMPEDANCE MATCHING 
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PI-NETWORK IMPEDANCE MATCHING 
10 REM THIS PROGRAM COMPUTES THE COMPO- 
NENTS 
20 REM OF A PI-NETWORK. TO MATCH TWO 
30 REM IMPEDANCES 
40 PRINT “ENTER 1ST IMPEDANCE” 


50 INPUT Z1 

60 PRINT “ENTER 2ND IMPEDANCE” 

70 = INPUT Z2 

80 PRINT “ENTER DESIRED SYSTEM Q” 
90 INPUT Q 


100 PRINT “ENTER OPERATING FREQUENCY” 
110 INPUTA 

120 LETA=Z1/Q 

130 =©LET C = ((Z2/Z1)*((Qh2) + 1)) -— 1 

140 ~=LET B = Z2/SQR(C) 

150 LET E = (Z2/(Q*B)) +1 

160 =LET D = E*((Q*Z1)/((Qt2) + 1) 

170 ~— LET P = 6.28319 

180 LET Cl = 1/(P*F*A) 

190 LET C2 = 1/(P*F*B) 

200 LET L=D/(P*F) 

210 PRINT “COMPONENTS OF PI-NETWORK” 
220. ~=PRINT “CAPACITOR 1 = ";Cl 

230 PRINT “CAPACITOR 2 =”;C2 

240 ~=—s PRINT “INDUCTOR = ”;L 


250 PRINT 

260 PRINT “ TO CONTINUE TYPE 1, IF NOT 0” 
270 = =INPUT X 

280 IF X = 1 THEN 300 

290 STOP 

300. PRINT 

310 GOTO 40 

320 END 
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POINTS ON THE CIRCUMFERENCE 
This program computes N equally spaced points on the circumfer- 
ence of a circle. Given radius and center of the circle, this program 
computes the rectangular coordinates of equally spaced points Xi, Yi. 


FORMULAE 


Xi+1 =Xo0 +R Cos(0+ ZI) 
Xn, Yn Yi+1= Yot R SinO+tZI) 
where Z= 27 /N 





0,0 
POINTS ON A CIRCUMFERENCE 


EXAMPLE 

CENTER OF CIRCLE(X0, Y0) = 

? 

2,2 

ANGLE IN DEGREES OF FIRST POINT = 
? 

90 

NUMBER OF POINTS DESIRED = 

? 


2 
RADIUS OF CIRCLE = 
? 


1 

COORDINATES 
POINT1 X =3 Y =2 
POINT 2X = 2 Y=1 
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POINTS ON THE CIRCUMFERENCE 


PROMPT + INPUT 
CIRCLE CENTER 


PROMPT + INPUT 
ANGLE OF 1st POINT, 
PROMPT + INPUT 
# OF POINTS 
PROMPT + INPUT 
CIRCLE RADIUS 
PRINT 
COORDINATES 


COMPUTE 
COORDINATES 
OUTPUT 
COORDINATES 


PROMPT _+ INPUT 
CONTINUE 
COMMAND 
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POINTS ON THE CIRCUMFERENCE 


10 REM THIS PROGRAM COMPUTES N EQUALLY 
SPACED 
20 REM POINTS ON THE CIRCUMFERENCE OF A 
CIRCLE 
30 PRINT “CENTER OF CIRCLE (X0,Y0) =”; 
40 INPUT X0,Y0 
50 PRINT “ANGLE IN DEGREES OF 1ST POINT =’; 
60 INPUT W 
70 = LET W = (W*3.14159)/180 
80 PRINT “NUMBER OF POINTS DESIRED = ”; 
90 INPUT N 
100 PRINT “RADIUS OF A CIRCLE =”; 


110 INPUTR 
120. LET Z = 6.28319/N 
130 PRINT 


140. PRINT “COORDINATES” 

150 FORI=0TON-1 

160 LET X = XO + (R*COS(W + Z*I))) 
170 ~=LET Y = YO + (R*SIN(W + (Z*I))) 

180 LETP=I+1 

190 PRINT “POINT;”;P,“X = ”;X,“Y = ”;Y 


200 NEXTI 

210 PRINT 

220 ~=PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
230 = INPUTL 

240 + =IFL=1 THEN 260 

250 STOP 

260 PRINT 

270 GOTO 30 


280 END 
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POLAR TO RECTANGULAR CONVERSION 


This program converts given polar coordinates into rectangular 
coordinates. 


FORMULAE 
POLAR TO RECTANGULAR 





EXAMPLE 


POLAR COORDINATES 

ANGLE W IN DEGREES = 

? 

45 

MAGNITUDE R = 

? 

5 

RECTANGULAR COORDINATES 
X = 3.53553 Y = 3.53553 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


POLAR COORDINATES 

ANGLE W IN DEGREES = 

? 

20 

MAGNITUDE R = 

? 

1 

RECTANGULAR COORDINATES 
X = .939693 Y = .34202 

TYPE 1 TO CONTINUE, 0 STOP 
? 

0 

*END 
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POLAR TO RECTANGULAR CONVERSION 


PRINT 
POLAR 
COORDINATES 
PROMPT + INPUT 
ANGLE 
PROMPT + INPUT 
MAGNITUDE 
COMPUTE 
P>R 


PRINT 
RECT. COORDINATE 
OUTPUT 
xX, Y 
PROMPT + INPUT 
CONTINUE 
COMMAND 
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POLAR TO RECTANGULAR CONVERSION 


10 
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REM THIS PROGRAM CONVERTS GIVEN POLAR 


COORDINATES 
REM INTO RECTANGULAR COORDINATES 
PRINT “POLAR COORDINATES” 
PRINT “ANGLE W IN DEGREES = "; 
INPUT W 
LET W = (W*3.14159)/180 
PRINT “MAGNITUDE R =”; 
INPUT R 
LET X = R*COS(W) 
LET Y = R*SIN(W) 
PRINT “RECTANGULAR COORDINATES” 
PRINT “X = "3X,“Y = ";Y 
PRINT 
PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 
IF L = 1 THEN 180 
STOP 
PRINT 
GOTO 30 
END 


PRIME TEST 


This program tests a given number to see whether or not it is prime. 
If so, itis thus indicated and if not, the smallest factor returned. The 
program will continue to cycle until a zero is entered as a test 
number. 


EXAMPLES 


ENTER THE TEST NUMBER,ZERO TO STOP 

? 

45 

45 IS NOT A PRIME 3 IS THE SMALLEST FACTOR 
ENTER THE TEST NUMBER,ZERO TO STOP 

9 


120078 

120078 IS NOT A PRIME 2 IS THE SMALLEST FACTOR 
ENTER THE TEST NUMBER,ZERO TO STOP 

? 


121 

121 IS NOT A PRIME 11 IS THE SMALLEST FACTOR 
ENTER THE TEST NUMBER,ZERO TO STOP 

? 


179 

179 IS A PRIME 

ENTER THE TEST NUMBER,ZERO TO STOP 
? 

0 

GOOD-BYE FROM THE PRIME TESTER 
*END 
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PRIME TEST 


PROMPT + INPUT 
TEST NUMBER 
SET N 
EQUAL TO INT (N) 


NOT PRIME 
MESSAGE 


UPDATE T 





PRIME TESTER 


10 REMTHIS PROGRAM TESTS IF ANUMBERIS PRIME 

20 REMIT CONTINUES TO CYCLE UNTIL ZERO IS EN- 
TERED 

30 PRINT “ENTER THE TEST NUMBER, ZERO TO 
STOP” 
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INPUT N 

LET N = INPUT (N) 
IF N = 0 THEN 220 
IF N < 4 THEN 180 
LETI=0 

LET T =2 

LET J = INT(N/T) 
LET K = J*T 

IF N = K THEN 200 
LETI=I1+1 

LET L = T*T 

IF L > N THEN 180 
LET T = (I*2) + 1 
GOTO 100 


PRINT N; “IS A PRIME” 


GOTO 30 


PRINT N; “IS NOT A PRIME”;T;“IS THE SMALLEST 


FACTOR” 
GOTO 30 


PRINT “GOOD-BYE FROM THE PRIME TESTER” 


END 


157 


QUADRATIC EQUATIONS 


This program solves for x in a quadratic equation where a, 6 andc are 
given. Both real and complex roots are found. 


FORMULAE 
ax +bx t+o=h 
~ p +¥b? — 4ac 
x1,%2 = oa 


D = (0? — 4ac)/4a’ 


D = @ roots are real D< roots are complex 





D260 
b b 
IF ~ 772% X=-—+YD- 
2a 2a 
b b 
IF-—-<¢ Xi=-—-JD_ 
2a 2a 
C 
X2= 
Xia 
D 
<0 ~b JV4ac—8’ 
U+Vv= ——+-—-_— 1 
2a 2a 
EXAMPLES 


ENTER VALUES FOR A,B AND C 
? 

1,1,0 

ROOTS ARE REAL 

IST ROOT = - 1 

2ND ROOT = 0 


SRERKKERSEKHSEKEAEESESLHRSSREKKESAR 
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TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
ENTER VALUES FOR A,B AND C 
? 


10,10,10 

ROOTS ARE COMPLEX 
REAL PART = — 50 
IMAGINARY PART = 86.6025 


SHREK EEAEHREAELARAKRABEARES 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 


PROMPT + INPUT 
A. B.C QUADRATIC EQUATIONS 


COMPUTE 
D 


YES COMPUTE Z 
(+¥d 
PRINT 
ROOTS ARE 
COMPLES COMPUTE Z 
(- ¥D) 
OUTPUT 


REAL- IMAGINARY 


PROMPT + INPUT 
CONTINUE 
COMMAND 
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QUADRATIC EQUATION 


10 REM THIS PROGRAM COMPUTES THE SOLUTION 
TOA 
20 REM QUADRATIC EQUATION 
30 PRINT “ENTER VALUES FOR A, B AND C” 
40 INPUT A,B,C 
50 LET D = ((Bt2) — (4*A*%C))/(4*At2) 
60 IF D >=0 THEN 130: 
70 LET X = B/(2*A) 
80 LET Y = (SQR((4*A*C) — B 2))/(2*A) 
90 PRINT “ROOTS ARE COMPLEX” 
100 PRINT “REAL PART = ";X 
110 PRINT “IMAGINARY PART = ”;Y 
120 GOTO 220 
130 LET E =— B/(2*A) 
140 IF E >=0 THEN 170 
150 LETZ=E-—- SQR(D) 
160 GOTO 180 
170 =LETZ=E + SQRO) 
180 LET W=C/(Z*A) 
190 PRINT “ROOTS ARE REAL” 
200 PRINT 1ST ROOT = ”;Z 
210 PRINT “2ND ROOT =”;W 
220 PRINT MELKBRERKESKEBAKSEHSSESSESBH? 
230 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
240 =INPUTL 
250 IF L=1 THEN 270 


260 STOP 
270 ~=6PRINT 
280 GOTO 30 
290 END 
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RECTANGULAR T0 POLAR CONVERSION 


This program computes rectangular coordinates that are supplied by 
the user into polar coordinates. 


FORMULAE 


Y 
@ = TAN-'—— R =f/X"+¥ 
X 


EXAMPLES 


10 

POLAR COORDINATES 

ANGLE IN DEGREES = 45.0000 
MAGNITUDE = 14.1421 


BESELSSEESESESESSSHESEHKSERESESR 


TYPE 1 TO CONTINUE, 0 TO STOP 


wy <p esry 


POLAR COORDINATES 

ANGLE IN DEGREES = 43.2643 
MAGNITUDE = 46.6904 
SHSSHSSSESESSESSEOKSESEHKSESS SS 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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PROMPT + INPUT 
RECTANGULAR RECTANGULAR TO POLAR CONVERSION 


COOR. 


CALCULATE LET 
POLAR 0 + 180 
COORDINATES R +ABS (X) 


OUTPUT 
POLAR 
COORDINATES 


PROMPT + INPUT 
CONTINUE 
COMMAND 





RECTANGULAR TO POLAR CONVERSION 


10 REM THIS PROGRAM CONVERTS GIVEN RECTAN- 
GULAR 

20 REM COORDINATES INTO POLAR COORDINATES 

30 PRINT “RECTANGULAR COORDINATES” 

40 PRINT “X=” 

50 INPUT X 

60 PRINT “Y=” 


INPUT Y 

IF X + Y = 0 THEN 150 

IF X = 0 THEN 180 

IF Y = 0 THEN 250 

LET W = ATN(Y/X) 

LET W = (W*180)/3.14159 

LET R = SQR(XT2 + Y12) 
GOTO 310 

LET W =0 

LET R=0 

GOTO 310 

IF Y> 0 THEN 220 

LET W = - 90 

LET R = ABS(Y) 

GOTO 310 

LET W = 90 

LETR=Y 

GOTO 310 

X > 0 THEN 290 

LET W = 180 

LET R = ABS (X) 

GOTO 310 

LET W=0 

LET R=X 

PRINT “POLAR COORDINATES” 
PRINT “ANGLE IN DEGREES =”; W 
PRINT “MAGNITUDE =”; R 
PRINT 66 Se he he 3 2he a ae abe ae he ae aha ae ake a 2 ae a he oe ae oe 2k? 
PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 390 

STOP 

PRINT 

GOTO 40 

END 
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RECTANGULAR SECTIONS 


This program computes various parameters: moment of inertia, 
polar moment of inertia, and area of section connected with a rectan- 


gular section. 
FORMULAE 


RECTANGULAR SECTION 


bh? 
l=— IandJ ts in(in‘) 
12 Ais in (in?) 


_ bh(b? + h?) 
12 





EXAMPLE 

BASE = 

? 

3 

HEIGHT = 

? 

5 

MOMENT OF INERTIA = 31.25 
POLAR MOMENT OF INERTIA = 42.50 
AREA OF SECTION = 15 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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RECTANGULAR SECTIONS 


PROMPT + INPUT 
BASE + HEIGHT 


COMPUTE 
J, A 


OUTPUT 
JA 


PROMPT + INPUT 
CONTINUE 
COMMAND 
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RECTANGULAR SECTIONS 
10 REM THIS PROGRAM COMPUTES THE VARIOUS 


PARAMETERS 

20 REM CONNECTED WITH A RECTANGULAR SEC- 
TION 

30. PRINT “BASE =”; 

40 INPUTB 

50 PRINT “HEIGHT =” 

60 INPUTH 


70 ~=LET I = (B*(H18))/12 
80 LET J = (B*H*(Bt2 + Ht2))/12 
90 LET A=B*H 
100 PRINT “MOMENT OF INERTIA = ”;1 
110 PRINT “POLAR MOMENT OF INERTIA = ”;J 
120. PRINT “AREA OF SECTION = ";A 
130 PRINT 
140 ~=PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
150 INPUT L 
160 IF L=1 THEN 180 


170 STOP 
180 PRINT 
190 GOTO 30 
200 END 
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RESISTIVE ATTENUATOR DESIGN 


This program computes the required three resistors to form either a 
Pi- or T-type resistive attenuator. This type of attenuator allows the 
user to choose a loss other than that of minimum. 


FORMULAE 





RESISTIVE ATTEM DESIGN 


Ri Riz Rs 
Rin > : Rs <—G——— Ro <b of 


Rin> Ro, and N = desired loss = minimum loss 








R 2 
minimum loss =1dlog| / ‘ + / —_ 1 
Ro Ro 


T-type 
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EXAMPLE 
INPUT RESISTANCE R(N) = 
? 


500 

OUTPUT RESISTANCE R(0) = 

? 

100 

MINIMUM SYSTEM LOSS IN DECIBELS = 12.54 
ENTER DESIRED LOSS IN DECIBELS 
? 

20 

R(IN) = 500 R(O) = 100 

DESIRED LOSS = 20 

T ATTENUATOR 

RESISTOR 1 = 464.9 

RESISTOR 2 = 56.85 

RESISTOR 3 = 45.17 

PI ATTENUATOR 

RESISTOR 1 = 879.6 

RESISTOR 2 = 107.5 

RESISTOR 3 = 1107 

TYPE 1 TO CONTINUE, 0 TO STOP 

? 


0 
*END 
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RESISTIVE ATTENUATOR DESIGN 


PROMPT + INPUT 
R(IN) + R(O) 


COMPUTE 
MINIMUM 
LOSS 


OUTPUT 
MINIMUM LOSS 
PROMPT + INPUT 
DESIRED LOSS 
COMPUTE 
COMPONENTS 


OUTPUT 
LOSS 


QUTPUT 
T-TYPE 
COMPONENTS 


QUTPUT 
TYPE 
COMPONENTS 


PROMPT + INPUT 
ONTINUE COMMAND 
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RESISTIVE ATTENUATOR DESIGN 


10 


REM THIS PROGRAM COMPUTES THE COMPO- 


NENTS 
REM REQUIRED FOR A PI OR T TYPE 
REM RESISTIVE ATTENUATOR 
PRINT “INPUT RESISTANCE R(IN) =”; 
INPUT X 
PRINT “OUTPUT RESISTANCE R(O) =”; 
INPUT Y 
LET Z = X/Y 
LET Q = (SQRZ) + SQRZ — 1))*2 
LET M = 10*(LOG(Q)/LOG(10)) 
PRINT “MINIMUM SYSTEM LOSS IN DECIBELS 
=":M 
PRINT “ENTER DESIRED LOSS IN DECIBELS”; 
INPUT L 
LET N = 10 (L/10) 
LET W=N-1 
LETU=N+1 
LET A = 2*(SQR(KX*Y*N)) 
LET B = (X*(U/W)) - A 
LET C = (Y*(U/W)) -— A 
LET D = (W*SQR((X*Y)/N))/2 
LET E = 1/((U/W)/X) — (1/D) 
LET F = 1/((U/W)/Y) — (1/D) 
PRINT “RCIN) = ”;X,“R(O) = ”;Y 
PRINT “DESIRED LOSS = ”;L 
PRINT 
PRINT “T ATTENUATOR” 
PRINT “RESISTOR 1 = ”;B 
PRINT “RESISTOR 2 = ”;C 
PRINT “RESISTOR 3 = ";A 
PRINT 
PRINT “PI ATTENUATOR” 
PRINT “RESISTOR 1 = ”;E 
PRINT “RESISTOR 2 = ”;F 
PRINT “RESISTOR 3 = ”;D 
PRINT 
PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT Q 
IF Q = 1 THEN 400 
STOP 
PRINT 
GOTO 40 
END 


SIMULTANEOUS EQUATIONS IN TWO UNKNOWNS 


The user supplies the components of two AX + BY = C type equa- 
tions, also giving the computer the opportunity to state if the solution 





is impossible. 
FORMULAE 
FP jae 
ED — BF FD AF — EC CF 
AD — BC AB AD — BC AB 
CD CD 
EXAMPLE 
AX +BY=E 
CX + DY=F 


ENTER PARAMETERS, A,B,C,D,E,F 
> 

10,20, 45,23, 56, 78 

SOLUTION X = 9.6 Y = — 2.55 
CORNSEENESERTENEEEERENES 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

1 

AX +BY=E 

CX + DY =F 

ENTER PARAMETERS A,B,C,D,E,F 
10,10,789,2,2,6 

NO SOLUTION, OR NO UNIQUE SOLUTION EXISTS 
iettttit tite t ttt ToS 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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SIMULTANEOUS EQUATIONS IN TWO UNKNOWNS 


PROMPT + 
INPUT PARAMETER 
CALCULATE 
M 


OUTPU 
NO SOLUTION 
MESSAGE 
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SIMULTANEOUS EQUATIONS IN TWO UNKNOWNS 


10 


REM THIS PROGRAM COMPUTES SIMULTANEOUS 
EQUATIONS 

REM IN TWO UNKNOWNS 

PRINT “AX + BY = E” 

PRINT “CX + DY = F” 

PRINT “ENTER PARAMETERS A,B,C,D,E,F” 

INPUT A,B,C,D,E,F 

LET M = (A*D) — (B*C) 

IF M = 0 THEN 140 

LET X = ((E*D) — (B*F))/M 

LET Y = ((A*F) — (E*C))/M 

PRINT “SOLUTION” ,“X = ”;X,“Y = ”;Y 

PRINT CERERERKAKSRSKAHKKERSESESH?) 

GOTO 160 

PRINT “NO SOLUTION, OR NO UNIQUE SOLUTION 

EXISTS” 

PRINT SREBRERLSEKRHEERRRAKARH?! 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 200 

STOP 

PRINT 

GOTO 30 

END 
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SIMULTANEOUS EQUATIONS IN THREE UNKNOWNS 


The computer solves a system of three equations in three unknowns 
with the parameters supplied by the user. 


EXAMPLE 


SOLVE FOR 3 EQUATIONS IN 3 UNKNOWNS 
OF THE TYPE AX + BY + CZ =D 

ENTER FIRST EQUATION(A,B,C, D) 

? 

1,4,6,3 

ENTER SECOND EQUATION(A,B,C, D) 

? 


~ 38,0, - 2 
ENTER THIRD EQUATION(A.B,C,D) 
? 


4, — 5,2,6 

SOLUTION 

X = 2.65516 Y = .741935 Z = — .435483 
TYPE 1 TO CONTINUE, 0 TO STOP 

? 

0 

*END 
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SIMULTANEOUS EQUATIONS IN THREE UNKNOWNS 


PRINT 
PROGRAM HEADER 
PROMPT + INPUT 
THREE EQUATIONS 


COMPUTE 
E1-— E5 


PRINT 
WRONG DATA 
MESSAGE 
COMPUTE 
_ CONTINUE 
COMMAND 
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SIMULTANEOUS EQUATIONS IN THREE UNKNOWNS 


10 
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REM THIS PROGRAM COMPUTES THE SOLUTION 
TO 

REM A SYSTEM OF 3 EQUATIONS IN 3 UNKNOWNS 

PRINT “SOLVE FOR 3 EQUATIONS IN 3 UNKNOWNS” 

PRINT “OF THE TYPE AX + BY + CZ = D” 

PRINT “ENTER 1ST EQUATION (A,B,C,D)” 

INPUT Al,B1,C1,D1 

PRINT “ENTER 2ND EQUATION (A,B,C, D)” 

INPUT A2,B2,C2,D2 

PRINT “ENTER 3RD EQUATION (A,B,C, D) 

INPUT A3,B3,C3,D3 

LET E1 = ((B1*A2)/Al) — B2 

LET E2 = ((C1*A2)/A1) — C2 

LET E3 = ((B1*A3)/Al) — B3 

LET E4 = ((C1*A3)/Al) — C3 

LET E5 = ((E1*E4) — (E2*E3)) 

IF ES = 0 THEN 250 

LET E6 = ((D1*A2)/A1) — D2 

LET E7 = ((D1*A3)/A1) — D3 

LET Y = ((E6*E4) — (E2*E7))/E5 

LET Z = ((E1*E7) — (E6*E3))/E5 

LET X = (D1/Al) — ((B1/A1*Y) — ((C1/A1)*Z) 

PRINT “SOLUTION” 

PRINT “X = "5X,“Y = ";Y,“Z = ";Z 

GOTO 260 

PRINT “INSUFFICIENT OR ERRONEOUS DATA EN- 
TERED” 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 310 

STOP 

PRINT 

GOTO 30 

END 


SPACE WARS (1) 


The game of Space Wars, as simulated by this program, is a battle 
between two ships, one the enemy, the other the player. The player 
has the following options: rotate the ship, move the ship, fire the 
laser cannon, fire the laser, or self-destruct. The object of this game 
is to destroy the enemy. The enemy, also being armed with a laser 
cannon and a laser, fires on you, so be careful. 


EXAMPLE 


RUN 

ARE INSTRUCTIONS REQUIRED? TYPE EITHER 

YES OR NO 

> 

YES 

THERE ARE 5 EXECUTIVE COMMANDS; TURN THE 

SHIP(1), MOVE(2), FIRE LASER CANNON@G3), 

FIRE LASER(4) AND SELF-DESTRUCT(5) 

THE CANNON MUST BE FIRED WITHIN 10 DEGREES 

OF 90 TO BE EFFECTIVE. NEGATIVE DEG TURNS TO- 
WARDS 

0 AND POSITIVE DEG TOWARDS 180. ENTERING NEGATIVE 
KM 

MOVES YOU TOWARDS THE ENEMY, WHILE POSITIVE 
MOVES 

YOU AWAY. LASER EFFECTIVENESS IS RANDOM, DUE TO 

SHIELDING, DISTANCE AND INTERSTELLAR DEBRIS 

OOHRS HEESESEEESER CC OOD-LUCK tt ttt ert ete atte 

MAY THE FORCE BE WITH YOU 

DISTANCE TO ENEMY 3.7 EO 3KM 

BEARING IS 87 DEGREES 

THE SKY FIGHTER HAS FIRED HIS LASER 

YOUR TOTAL ENERGY IS NOW 9.75E03 UNITS 

THE ENEMY HAS 9.5E03 UNITS OF ENERGY LETS 

WHICH COMMAND DO YOU WISH TO EXECUTE 

») 

2 

HOW MANY KM TO TRANSVERSE 

? 

— 3.3E03 

DISTANCE TO ENEMY 400KM 

BEARING IS 87 DEGREES 

THE SKY FIGHTER HAS FIRED HIS LASER 
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YOUR TOTAL ENERGY IS NOW 9.32E03 UNITS 
THE ENEMY HAS 9.0E03 UNITS OF ENERGY LEFT 
WHICH COMMAND DO YOU WISH TO EXECUTE 

? 


5 

YOU HAVE INSTRUCTED THE ON-BOARD COMPUTER 
TO SELF-DESTRUCT, THE REACTOR HAS GONE 
CRITICAL, YOU HAVE GONE TO MEET THE FORCE 
YOUR DESTRUCTION HAS ALSO DESTROYED 

THE SKY FIGHTER, YOU WILL BE REMEMBERED 
AS A HERO 

SPACE WARS IS OVER 

TO PLAY SPACE WARS AGAIN TYPE GO, 
OTHERWISE TYPE NO 

? 

NO 

SPACE WARS SAYS GOOD-BYE 

*END 
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SPACE WARS (1) 


ARE INST. 
REQUIRED 
YES OUTPUT 
INSTRUCTIONS 


COMPUTE 
DAMAGE 
CAUSED BY 

NEMY 


FIRE LASER 
_ CANNON 7 
FIRE LASER 
SELF 


DESTRUCT 
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SPACE WARS (1) 


10 


20 


180 


REM THIS PROGRAM IS THE GAME OF SPACE 
WARS 

REM TWO SHIPS BATTLE, YOU MUST DESTROY 
THE 

REM ENEMY TO SAVE THE REPUBLIC 

RANDOMIZE 

PRINT “ARE INSTRUCTIONS REQUIRED? TYPE 
EITHER” 

PRINT “YES OR NO” 

INPUT A$ 

IF A$ = “YES” THEN 120 

IF A$ = “NO” THEN 250 

PRINT “INVALID RESPONSE” 

GOTO 50 

PRINT 

PRINT “THERE ARE 5 EXECUTIVE COMMANDS; 
TURN THE” 

PRINT “SHIP(1), MOVE(2), FIRE LASER CANNON(3),” 

PRINT “FIRE LASER(4) AND SELF-DESTRUCT(5)” 

PRINT “THE CANNON MUST BE FIRED WITHIN 10 
DEGREES” 

PRINT “OF 90 TO BE EFFECTIVE. NEGATIVE DEG 
TURNS TOWARDS” 

PRINT “0 AND POSITIVE DEG TOWARDS 180. EN- 
TERING NEGATIVE KM” 

PRINT “MOVES YOU TOWARDS THE ENEMY, WHILE 
POSITIVE MOVES” 

PRINT “YOU AWAY. LASER EFFECTIVENESS IS 
RANDOM, DUE TO” 

PRINT “SHIELDING, DISTANCE AND INTERSTEL- 
LAR DEBRIS” 

PRINT 

PRINT “PERSE SSSFESSS COOD-LUCK tet erereeeeeesseen 

PRINT “MAY THE FORCE BE WITH YOU” 

LET El = 1E04 

LET E2 = El 

LET D = 1E03 + INT(SE05*RND) 

LET B = 1 + INT(180*RND) 

GOSUB 340 

GOSUB 390 

LET El = El — Dl 

GOSUB 500 


GOTO 690 

IF D > = 1E05 THEN 370 
LETL=1 

GOTO 380 

LET L=0 

RETURN 

IF L = 0 THEN 440 

LET H2 = (1 + INT(100*RND))/100 
LET D1 = 500*H2 

LET E2 = E2 — 500 

GOTO 490 

LET M1 = 1 + INT(2*RND) 
IF M1 = 1 THEN 470 


LET D1 = 1000 
GOTO 480 

LET D1 = 0 

LET E2 = E2 — 1000 
RETURN 

PRINT 


PRINT “DISTANCE TO ENEMY ”;D;“KM” 

PRINT “BEARING IS ”;B;” DEGREES” 

IF L = 1 THEN 560 

PRINT “THE SKY FIGHTER HAS FIRED THE LASER 
CANNON” 

GOTO 570 

PRINT “THE SKY FIGHTER HAS FIRED HIS LASER” 

PRINT “YOUR TOTAL ENERGY IS NOW”;E1;” 
UNITS” 

PRINT “THE ENEMY HAS ”;E2;” UNITS OF ENERGY 
LEFT” 

IF El < = 0 THEN 620 

IF E2 < = 0 THEN 650 

GOTO 680 

PRINT “YOUR ENERGY LEVEL IS ZERO, THE 
ENEMY” 

PRINT “HAS WON, YOU HAVE BECOME ONE WITH 
THE FORCE!” 

GOTO 1180 

PRINT “THE ENEMY HAS RUN OUT OF ENERGY, 
YOU” 

PRINT “HAVE WON” 

GOTO 1180 

RETURN 
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PRINT 

PRINT “WHICH COMMAND DO YOU WISH TO EXE- 
CUTE” 

INPUT C 

ON C GOTO 730, 840, 1010, 1100, 1140 

PRINT “HOW MANY DEGREES OF ROTATION” 

INPUT Bl 

IF B + B1 = 0 THEN 800 

IF B + B1 > 180 THEN 820 

LET B=B+B1 

LET El = El — (10*ABS(B1)) 

GOTO 290 

PRINT “YOUR ANGLE MUST BE GREATER THAN 0 
DEGREES” 

GOTO 730 

PRINT “YOUR ANGLE MUST BE LESS THAN 181 DE- 
GREES” 

GOTO 730 

PRINT “HOW MANY KM TO TRANSVERSE” 

INPUT K 

IF D + K = 0 THEN 910 

IF D + K > 1E06 THEN 960 

LETD=D+K K/1000)) 

LET E1 = El — (ABS( 

GOTO 290 

PRINT “YOU HAVE TRIED TO CLOSE THE DIS- 
TANCE TO ZERO” 

PRINT “BETWEEN YOU AND THE ENEMY, THE 
ON-BOARD” 

PRINT “COMMAND COMPUTER WILL NOT EXE- 
CUTE THIS MANEUVER” 

PRINT 

GOTO 840 

PRINT “YOU HAVE TRIED TO EXCEED THE DIS- 
TANCE WHERE” 

PRINT “ANY OF YOUR WEAPONS ARE EFFECTIVE” 

PRINT “THE ON-BOARD COMPUTER WILL NOT” 

PRINT “EXECUTE THIS MANEUVER” 

GOTO 840 

LET El = El — 1000 

IF B > = 80 THEN 1050 

PRINT “YOUR ANGLE IS TOO SMALL, YOU HAVE 
MISSED” 


1040 
1050 
1060 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


1150 


1160 


1170 
1180 
1190 
1200 


1210 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


GOTO 290 

IF B < = 100 THEN 1080 

PRINT “YOUR ANGLE IS TOO GREAT, YOU HAVE 
MISSED” 

GOTO 290 

LET E2 = E2 — 1000 

GOTO 290 

LET El = El — 500 

LET D2 = (1 + INT(100*RND))/100 

LET E2 = E2 — (D2*500) 

GOTO 290 

PRINT “YOU HAVE INSTRUCTED THE ON-BOARD 
COMPUTER” 

PRINT “TO SELF-DESTRUCT, THE REACTOR HAS 
GONE” 

PRINT “CRITICAL, YOU HAVE GONE TO MEET THE 
FORCE” 

IF D < = 500 THEN 1200 

PRINT “SPACE WARS IS OVER” 

GOTO 1240 

PRINT “YOUR DESTRUCTION HAS ALSO DE- 
STROYED” 

PRINT “THE SKY FIGHTER, YOU WILL BE REMEM- 
BERED” 

PRINT “AS A HERO” 

GOTO 1180 

PRINT 

PRINT “TO PLAY SPACE WARS AGAIN TYPE GO,” 

PRINT “OTHERWISE TYPE NO” 

INPUT Z$ 

IF Z$ = “GO” THEN 1310 

PRINT “SPACE WARS SAYS GOOD-BYE” 

STOP 

PRINT 

GOTO 50 

END 


183 


SPACE WARS (2) 


This computer simulation requires considerably more memory than 
any other program in the book. For the user who is memory limited, 
the following may be done. Deleting the REM statements, removing 
the instructions, and reducing the string lengths in the messages will 
reduce the memory requirement by about 50 percent. 


EXAMPLE 


RUN 

ARE INSTRUCTIONS FOR SPACE WARS REQUIRED? TYPE 
EITHER YES OR NO 

? 


YES 

FREEREEEEEAEEEESESESOD ACE WARS ttt tees eee ee eee ees 

THE DEATH STAR SPACE STATION, YOUR GOAL, IS HEAV- 
ILY 

SHIELDED AND MOUNTS MORE FIREPOWER THAN HALF 

THE IMPERIAL FLEET. BUT, ITS DEFENSES WERE 

PRIMARILY DESIGNED TO FEND OFF LARGE-SCALE CAPI- 
TAL 

SPACE-SHIP ASSAULTS. A SMALL, ONE- OR TWO-MAN 

X-WING FIGHTER SHOULD BE ABLE TO SLIP THROUGH 

ITS DEFENSIVE SCREENS. YOUR MISSION IS TO DESTROY 

THE DEATH STAR!!! ON ITS SURFACE THERE IS A SMALL 

THERMAL EXHAUST PORT. ITS SIZE BELIES ITS IMPOR- 
TANCE 

ASIT APPEARS TO BE AN UNSHIELDED SHAFT THAT RUNS 

DIRECTLY INTO THE MAIN REACTOR SYSTEM POWERING 

THE DEATH STAR SPACE STATION. SINCE THIS SERVES 

AS AN EMERGENCY OUTLET FOR WASTE HEAT IN THE 

EVENT OF REACTOR OVERPRODUCTION, ITS USEFUL- 
NESS 

WOULD BE ELIMINATED BY ENERGY-PARTICLE SHIELD- 
ING. 

A DIRECT HIT WOULD INITIATE A CHAIN REACTION THAT 

WOULD DESTROY THE STATION, THUS PROTECTING THE 

REPUBLIC 

2440s 4O4 EXECUTIVE COMMANDS ARE***#*4444 

(1) FIRE HIGH-ENERGY TORPEDO 

(2) FIRE LASER CANNON 

(3) FIRE LASER 

(4) PROPULSION OF X-WING 


184 


THE BATTLE COMPUTER OPTION MAY BE USED WITH 
COMMANDS 
2 AND 3. THE ENERGY TORPEDO IS USED TO DESTROY 
THE DEATH STAR WITH, EACH TORPEDO EXPENDS 20,000 
UNITS OF ENERGY. THE LASER CANNON MAY BE USED 
AGAINST THE SKY FIGHTERS, IT REQUIRES 5,000 UNITS 
THE LASER USES 1,000 ENERGY UNITS PER SHOT AND IT 
IS ALSO USED AGAINST THE SKY FIGHTERS. 
THE BATTLE COMPUTER REQUIRES 500 ENERGY UNITS, 
BUT, 
GUARANTEES A DIRECT HIT ON A SKY FIGHTER. TO DE- 
STROY A SKY FIGHTER YOU MUST DEPLETE IT OF EN- 
ERGY. 
MOVING THE X-WING SPACE CRAFT IS IMPERATIVE AS 
THE ENERGY TORPEDO MUST BE FIRED WITHIN 1000KM 
OF THE DEATH STAR. X-WING PROPULSION REQUIRES 
1 ENERGY UNIT PER KM 
OEERGRESESEOSSEEE8SO5088O8054404989TS TEE EEEE 
GOOD-LUCK 
MAY THE FORCE BE WITH YOU 
0940 98060000990846908050004940540800045000008 
DISTANCE TO DEATH STAR IS NOW 1E05KM 
THE SKY FIGHTER HAS FIRED HIS LASER CANNON 
THE DARK LORD IS EXTREMELY DANGEROUS!!! 
THE SMITH LORD HAS USED A LASER CANNON ENERGY 
BEAM 
YOUR TOTAL ENERGY IS NOW 4.98E05 
WHICH COMMAND DO YOU WISH TO EXECUTE 
> 
4 
HOW MANY UNITS OF ENERGY DO YOU WISH TO FEED TO 
THE HYPER-ATOMIC DRIVE UNIT, (1 UNIT/1KM) 
**CAUTION** TOO MUCH ENERGY WILL OVER-HEAT 
THE REACTOR, INPUT NO MORE THAN 22,500 UNITS 
AT ANY ONE TIME 
? 
30,000 
IN WHICH DIRECTION, AWAY (A) OR TOWARDS (T) 
THE DEATH STAR 
? 


T 
YOU HAVE WASTED 3.0E04 UNITS OF ENERGY 
THE REACTOR IS CRITICALLY OVERHEATED 
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DISTANCE TO DEATH STAR IS NOW 1E05KM 

THE SKY FIGHTER HAS FIRED HIS LASER CANNON 

RADER’S ON-BOARD ATTACK COMPUTER HAS MATCHED 

YOUR COURSE, HIS WEAPONS ARE READY 

THE SMITH LORD HAS USED A LASER CANNON ENERGY 
BEAM 

YOUR TOTAL ENERGY IS NOW 4.39E05 UNITS 

WHICH COMMAND DO YOU WISH TO EXECUTE 

? 


4 

HOW MANY UNITS OF ENERGY DO YOU WISH TO FEED TO 
THE HYPER-ATOMIC DRIVE UNIT, (1 UNIT/1KM) 
**CAUTION** TOO MUCH ENERGY WILL OVER-HEAT 
THE REACTOR, INPUT NO MORE THAN 22,500 UNITS 

AT ANY ONE TIME 

? 


20,000 

IN WHICH DIRECTION, AWAY (A) OR TOWARDS (T) 

THE DEATH STAR 

? 

T 

DISTANCE TO DEATH STAR IS NOW 8.0E04KM 

THE SKY FIGHTER HAS FIRED HIS LASER CANNON 

*CAUTION* GARTH RADER IS THE BEST SHOT IN THE 

IMPERIAL FLEET, PLUS HE USES THE BAD SIDE OF THE 
FORCE 

THE SMITH LORD HAS USED A LASER CANNON ENERGY 
BEAM 

YOUR TOTAL ENERGY IS NOW 4.1E05 UNITS 

WHICH COMMAND DO YOU WISH TO EXECUTE 

? 

SLILTTTTATA ATT TT 

TO PLAY SPACE WARS AGAIN TYPE GO, IF 

NOT TYPE NO 

? 

NO 

SPACE WARS SAY GOOD-BYE AND MAY THE FORCE 
BE WITH YOU 

*END 

The ////// indicate where the program was terminated, this simula- 

tion may be played for a considerable length of time. In the interest of 

saving space and leaving the unexpected to the user only a portion of 

a typical run has been shown. 
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SPACE WARS (2) 


10 


20 


220 


240 


REM THIS COMPUTER SIMULATION IS AN AD- 
VANCED VERSION OF 

REM THE SPACE WARS GAME. YOUR MISSION IS 
TO DESTROY THE 

REM DEATH STAR. YOU MAY BE ATTACKED BY 
THE DEATH STAR'S 

REM DEFENSES AND BY THE SKY FIGHTERS 

RANDOMIZE 

PRINT “ARE INSTRUCTIONS FOR SPACE WARS 
REQUIRED? TYPE” 

PRINT “EITHER YES OR NO” 

INPUT A$ 

IF A$ = “YES” THEN 130 

IF A$ = “NO” THEN 540 

PRINT “YOU HAVE ISSUED AN INVALID RE- 
SPONSE” 

GOTO 60 

PRINT 

PRINT CRRREEESESERESESESROGD ACE 
WARS 844884 t tte ee ee” 

PRINT “THE DEATH STAR SPACE STATION, YOUR 
GOAL, IS HEAVILY” 

PRINT “SHIELDED AND MOUNTS MORE 
FIREPOWER THAN HALF” 

PRINT “THE IMPERIAL FLEET. BUT, ITS DE- 
FENSES WERE” 

PRINT “PRIMARILY DESIGNED TO FEND OFF 
LARGE-SCALE CAPITAL” 

PRINT “SPACE-SHIP ASSAULTS. ASMALL, ONE-OR 
TWO-MAN” 

PRINT “X-WING FIGHTER SHOULD BE ABLE TO 
SLIP THROUGH” 

PRINT “ITS DEFENSIVE SCREENS. YOUR MISSION, 
IS TO DESTROY” 

PRINT “THE DEATH STAR!!! ON ITS SURFACE 
THERE IS A SMALL” 

PRINT “THERMAL EXHAUST PORT. ITS SIZE BE- 
LIES ITS IMPORTANCE” 

PRINT “AS IT APPEARS TO BE AN UNSHIELDED 
SHAFT THAT RUNS” 

PRINT “DIRECTLY INTO THE MAIN REACTOR 
SYSTEM, POWERING” 
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260 


270 


280 


310 


410 


420 


430 


440 


450 


460 


465 


470 


480 
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PRINT “THE DEATH STAR SPACE STATION. SINCE 
THIS SERVES” 

PRINT “AS AN EMERGENCY OUTLET FOR WASTE 
HEAT IN THE” 

PRINT “EVENT OF REACTOR OVERPRODUCTION, 
ITS USEFULNESS’ 

PRINT “WOULD BE ELIMINATED BY ENERGY- 
PARTICLE SHIELDING” 

PRINT “A DIRECT HIT WOULD INITIATE A CHAIN 
REACTION THAT” 

PRINT “WOULD DESTROY THE STATION, THUS 
PROTECTING THE” 

PRINT “REPUBLIC” 

PRINT “*******EXECUTIVE COMMANDS 
ARE*****#*” 

PRINT “(1) FIRE HIGH-ENERGY TORPEDO” 

PRINT “(2) FIRE LASER CANNON” 

PRINT “(3) FIRE LASER” 

PRINT “(4) PROPULSION OF X-WING” 

PRINT “THE BATTLE COMPUTER OPTION MAY BE 

. USED WITH COMMANDS” 

PRINT “2 AND 3. THE ENERGY TORPEDO IS USED 
TO DESTROY” 

PRINT “THE DEATH STAR WITH, EACH TORPEDO 
EXPENDS 20,000” 

PRINT “UNITS OF ENERGY. THE LASER CANNON 
MAY BE USED” 

PRINT “AGAINST THE SKY FIGHTERS, IT RE- 
QUIRES 5,000 UNITS” 

PRINT “THE LASER USES 1,000 ENERGY UNITS 
PER SHOT AND IT” 

PRINT “IS ALSO USED AGAINST THE SKY FIGHT- 
ERS.” 

PRINT “THE BATTLE COMPUTER REQUIRES 500 
ENERGY UNITS, BUT,” 

PRINT “GUARANTEES A DIRECT HIT ON A SKY 
FIGHTER. TO DESTROY” 

PRINT “A SKY FIGHTER YOU MUST DEPLETE IT OF 
ENERGY.” 

PRINT “MOVING THE X-WING SPACE CRAFT IS IM- 
PERATIVE AS” 

PRINT “THE ENERGY TORPEDO MUST BE FIRED 
WITHIN 1000KM” 


PRINT “OF THE DEATH STAR. X-WING PROPUL- 
SION REQUIRES” 

PRINT “1 ENERGY UNIT PER KM” 

PRIN [12224 te te eeee ses ee esse ee sees eeee ee se eee ee ee ee” 

PRINT“ GOOD-LUCK ” 

PRINT “MAY THE FORCE BE WITH YOU” 

PRIN [1424484424848 64 99088 Seb SSS OSSSSEeeeSer GEOG se enee” 

REM X-WING ENERGY AND SKY ENERGY 

LET X1 = 5E05 

LET T1 = 1E04 

LET T2 = 5E04 

LET D = 1E05 

GOSUB 630 

GOSUB 730 

GOSUB 830 

GOSUB 1040 

GOSUB 1500 

GOTO 580 

IF D > 1E04 THEN 660 

LET L =1 

GOTO 700 

LET L =0 

LET H = (1 + INT(100*RND))/100 

LET E1 = 5000*H 

GOTO 720 

LET H = (1 + INT(100*RND))/100 

LET El = 1000*H 

RETURN 

IF D > 5E03 THEN 760 

LET K =1 

GOTO 800 

LET K =0 

LET H = (1 + INT(100*RND))/100 

LET E2 = 8000*H 

GOTO 820 | 

LET H = (1 + INT(100*RND))/100 

LET E2 = 3000*H 

RETURN 

IF D < 3E03 THEN 860 

LET E3 = 0 

GOTO 880 

LET H = (1 = INT(100*RND))/100 

LET E3 = 2E04*H 
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LET T1 = T1 - El 

LET T2 = T2 — E2 

IF T1 < = 0 THEN 920 

GOTO 950 

LET El =0 

LET Y=1 

GOTO 960 

LET Y =0 

IF T2 < = 0 THEN 980 

GOTO 1010 

LET E2 = 0 

LET Z=1 

GOTO 1020 

LET Z =0 

LET X1 = X1 — El -— E2 — E3 

RETURN 

PRINT “DISTANCE TO DEATH STAR IS NOW”; 
D; “KM” 

IF Y = 1 THEN 1100 

IF L = 0 THEN 1080 

PRINT “THE SKY FIGHTER HAS FIRED HIS LASER” 

GOTO 1110 

PRINT “THE SKY FIGHTER HAS FIRED HIS LASER 
CANNON” 

GOTO 1110 

PRINT “THE SKY FIGHTER IS OUT OF ACTION!!!” 

IF Z = 1 THEN 1180 

GOTO 1220 

IF K = 0 THEN 1160 

PRINT“THE DARK LORD HAS FIRED HIS HIGH 
ENERGY LASER” 

GOTO 1360 

PRINT “THE SMITH LORD HAS USED A LASER CAN- 
NON ENERGY BEAM” 

GOTO 1360 

PRINT “GARTH RADER HAS EXPENDED ALL HIS 
WEAPON’S ENERGY” 

PRINT “SUPPLY. HE IS CURRENTLY ESCAPING TO 
THE ENDS OF” 

PRINT “THE GALAXY. ***THE FORCE IS WITH 
YOU***” 

GOTO 1360 


LET C = 1 + (5*RND) 

ON C GOTO 1240, 1270, 1290, 1310, 1330 

PRINT “*CAUTION*GARTH RADER IS THE BEST 
SHOT IN THE” 

PRINT “IMPERIAL FLEET, PLUS HE USES THE BAD 
SIDE OF THE FORCE” 

GOTO 1130 

PRINT “THE DARK LORD IS EXTREMELY 
DANGEROUS!!!” 

GOTO 1130 

PRINT “**CAUTION RADER IS INHUMANLY ACCU- 
RATE CAUTION**” 

GOTO 1130 

PRINT “THE SMITH LORD’S PRECISION IS AWE- 
SOME” 

GOTO 1130 

PRINT “RADER’S ON-BOARD ATTACK COMPUTER 
HAS MATCHED” 

PRINT “YOUR COURSE, HIS WEAPONS ARE 
READY” 

GOTO 1130 

IF D < = 3E03 THEN 1380 

GOTO 1410 

PRINT “***YOU ARE CLOSER THAN 3000KM TO 
THE SPACE STATION” 

PRINT “THE DEATH STAR’S AUTOMATIC DE- 
FENSE NETWORK HAS BEEN” 

PRINT “ACTIVATED. ***USE EXTREME CAU- 
TION***” 

PRINT 

PRINT “YOUR TOTAL ENERGY IS NOW ”;X1;” 

UNITS” 

IF X1 < 2E04 THEN 1140 

GOTO 1490 

PRINT “YOU HAVE DEPLETED YOUR ENERGY 
SUPPLY, THE DEATH” 

PRINT “STAR WILL NOW DESTROY YOUR HOME 
PLANET” 

PRINT “YOU WILL BE A HERO NOWHERE AND RE- 
MEMBERED BY NONE” 

PRINT “*****YOU HAVE MISUSED THE 
FORCE*****” 

GOTO 2690 
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RETURN 

PRINT 

PRINT “WHICH COMMAND DO YOU WISH TO EXE- 
CUTE” 

INPUT B 

ON B GOTO 1540, 1690, 2030, 2320 

IF D < = 1000 THEN 1590 

PRINT “YOU HAVE WASTED A TORPEDO, YOU ARE 
FARTHER” 

PRINT “AWAY THAN 1000KM” 

LET X1 = X1 — 2E04 

GOTO 2680 

LET H = 1 + (INT(100*RND)) 

IF H > = 50 THEN 1640 

PRINT “YOU SHOULD HAVE USED THE FORCE, 
YOU HAVE MISSED” 

LET X1 = X1 — 2E04 

GOTO 2680 

PRINT “THE FORCE WAS WITH YOU, YOU HAVE 
SINGLE-HANDED” 

PRINT “DESTROYED THE DEATH STAR. YOU 
HAVE SAVED THE” 

PRINT “REPUBLIC AND PRINCESS LEAH ARGONA 
WILL LOVE” 

PRINT “YOU FOREVER.” 

GOTO 2740 

PRINT “THE CANNON IS READY, DO YOU WISH 
COMPUTER ASSISTANCE” 

PRINT “ENTER EITHER YES OR NO” 

INPUT C$ 

IF C$ = “YES” THEN 1820 

IF C$ = “NO” THEN 1880 

PRINT “INVALID RESPONSE” 

GOTO 1700 

PRINT “WHICH FIGHTER THE SKY “S” OR RADER 
“Rp” 

INPUT C$ 

IF C$ = “T” THEN 1840 

IF C$ = “V” THEN 1860 

PRINT “WHICH????” 

GOTO 1760 

LET Q = 5000 

GOTO 1760 


LET T1 = T1-Q 

GOTO 1960 

LET T2 = T2-—Q 

GOTO 1960 

PRINT “DO YOU WISH TO FIRE ON GARTH RADER 
(R) OR” 

PRINT “ON THE SKY FIGHTER (S)” 

INPUT C$ 

LET Q = 5000*((1 + INT(100*RND))/100) 

IF C$ = “S” THEN 1980 

IF C$ = “R” THEN 2000 

PRINT “WHICH ENEMY????” 


GOTO 1880 

LET X1 = X1 — 5500 
GOTO 2660 

LET T1 =T1-—Q 
GOTO 2010 


LET T2 = T2-— Q 

LET X1 = X1 — 5000 

GOTO 2660 

PRINT “YOU HAVE DECIDED ON USING THE 
LASER” 

PRINT “DO YOU WISH COMPUTER ASSISTANCE, 
YES OR NO” 

INPUT C$ 

IF C$ = “YES” THEN 2100 

IF C$ = “NO” THEN 2120 

PRINT “THE COMPUTER RESPONSES ONLY TO A 
YES OR A NO” 

GOTO 2040 

LETJ=1 

GOTO 2130 

LET J =0 

PRINT “WHICH FIGHTER THE SKY (S) OR RADER 
(R)” 

PRINT “DO YOU WISH TO FIRE ON” 

INPUT C$ 

IF J = 1 THEN 2190 

LET Q = 1000*((1 + INT(100*RND))/100) 

GOTO 2200 

LET Q = 1000 

IF C$ = “S” THEN 2240 

IF C$ = “R” THEN 2260 
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GOTO 2130 

LET T1 =T1-Q 

GOTO 2270 

LET T2 = T2- Q 

IF J = 1 THEN 2300 

LET X1 = X1 — 1000 

GOTO 2660 

LET X1 = X1 — 1500 

GOTO 2660 

PRINT “HOW MANY UNITS OF ENERGY DO YOU 
WISH TO FEED TO” 

PRINT “THE HYPER-ATOMIC DRIVE UNIT, (1 
UNIT/1KM)” 

PRINT “**CAUTION** TOO MUCH ENERGY WILL 
OVER-HEAT” 

PRINT “THE REACTOR, INPUT NO MORE THAN 
22,500 UNITS” 

PRINT “AT ANY ONE TIME” 

INPUT F 

PRINT “IN WHICH DIRECTION, AWAY (A) OR TO- 
WARDS (T)” 

PRINT “THE DEATH STAR” 

INPUT C$ 

IF F > 2.25E04 THEN 2470 

IF C$ = “A” THEN 2500 

IF C$ = “T” THEN 2620 

PRINT “DON’T YOU KNOW WHICH DIRECTION YOU 
WANT TO GO TO” 

GOTO 2380 

REM OVERHEATING THE REACTOR 

PRINT “YOU HAVE WASTED ”:F;“ UNITS OF 
ENERGY” 

PRINT “THE REACTOR IS CRITICALLY OVER- 
HEATED” 

GOTO 2640 

LETD=D+F 

IF D > = 1.5E05 THEN 2540 

GOTO 2640 

REM WENT TOO FAR 

PRINT “WHERE ARE YOU GOING?? THE BATTLEIS 
IN THE” 

PRINT “OPPOSITE DIRECTION” 


2560 
2570 


2580 
2590 


2600 
2610 
2620 
2630 
2640 
2650 
2660 


2670 


2680 
2690 


2700 
2710 


2720 


2730 
2740 


2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 


2830 
2840 
2850 
2860 


2870 


GOTO 2640 

PRINT “YOU HAVE SMASHED INTO THE DARK 
STAR****#49" 

PRINT “WHERE DID YOU LEARN TO FLY, GARTH 
RADER” 

PRINT “IS LAUGHING AT YOU;; OH!! BY THE 
WAY---” 

PRINT “* ** *** YOU HAVE LOST ******” 

GOTO 2690 

LETD=D-F 

IF D < = 0 THEN 2570 

LET X1 = X1-F 

GOTO 2680 

PRINT “THE SKY FIGHTER'S ENERGY IS NOW 
",T1;”UNITS” 

PRINT “THE DARK LORD’S ENERGY IS“ ;T2;” 
UNITS” 

RETURN 

PRINT “YOU ARE AN INCOMPETENT GOOD 
KNIGHT” 

PRINT “YOU HAVE DISGRACED THE MEMORY OF” 

PRINT “OBI- SAN COYOTE! WHOSE SIDE ARE YOU 
ON??” 

PRINT “WHY DON’T YOU PROVE YOUR WORTH 
AND TRY AGAIN” 

GOTO 2760 

PRINT “OBI- SAN COYOTE WOULD BE PROUD OF 
YOU” 

PRINT “YOU ARE INDEED A **GOOD KNIGHT**” 

PRINT 

PRINT “TO PLAY SPACE WARS AGAIN TYPE GO, IF” 

PRINT “NOT TYPE NO” 

INPUT L$ 

IF L$ = “GO” THEN 2840 

IF L$ = “NO” THEN 2860 

PRINT “DO YOU WANT TO STOP OR PLAY 


GOTO 2770 

PRINT 

GOTO 50 

PRINT “SPACE WARS SAY GOOD-BYE AND MAY 
THE FORCE BE WITH YOU” 

END 
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STRAIGHT LINE DEPRECIATION 


This program computes the value depreciation of an item by the 
Straight line method. 


FORMULA 


Xc = last current value, D = depreciation per year, 
X1 = new current value 


Xc-D =X: 

EXAMPLE 

ORIGINAL VALUE = 

? 

10000 

LIFETIME IN YEARS = 

? 

12 

YEARLY DEPRECIATION = 833.333 

YEAR VALUE 

1 9166.66 
2 8333.33 
3 7500. 
4 6666.66 
5 5833.33 
6 5000. 
7 4166.66 
8 3333.33 
9 2500. 
10 1666.66 
1 333.333 
12 0 


etter rere rere reer rere rer rer 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
“END 
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STRAIGHT LINE DEPRECIATION 


PROMPT + INPUT 
LIFETIME + VALUE 


ALCULATE 
YEARLY 
DEPRECIATION 


OUTPUT 
YEAR 
DEPRECIATION 


CALCULATE 
VALUE AT END 
OF YEAR X 
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STRAIGHT LINE DEPRECIATION 


10 REM THIS PROGRAM COMPUTES VALUE DEPRE- 
CIATION 

20 REM BY THE STRAIGHT LINE METHOD 

30 PRINT “ORIGINAL VALUE =”; 


40 INPUTA 
50 PRINT “LIFETIME IN YEARS =”; 
60 INPUTB 


70 LETC =A/B 
80 PRINT “YEARLY DEPRECIATION = ”;C 
90 PRINT 
100 PRINT “YEAR”, “VALUE” 
110 LETX=0 
1200. LETX=X+1 
130 LETA=A-C 
140 + JF A <0 THEN 160 
150 GOTO 170 
160 LETA=0 
170 ~=PRINTX,A 
180 IF X < B THEN 120 
190 PRINT CEBRAPRREKKKKEKKHAKHRHAHEHSS 
200 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
210 INPUT L 
220 IFL=1 THEN 240 


230 STOP 
240 ~=PRINT 
290 GOTO 30 
260 END 
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VECTOR CROSS PRODUCT 


If A(A:,A2,A3) and B(B:,Bz,Bs) are two three-dimensional vectors 
then the cross product of A and B is denoted by AxB. The program 
responds with a solution represented by X,Y and Z. 


FORMULAE 




















AA; AiA3 AiA2 
AxB= _ 
BB, B:Bs|, | BiB2 
= (AoBs — A3Bo, A3B: — AiB3, AiB2 — AB) 
EXAMPLES 


ENTER 1ST VECTOR (A1,A2,A3) 
? 


10,11,10 
ENTER 2ND VECTOR (B1,B2,B3) 
> 


4,3,4 

VECTOR CROSS PRODUCT 

X= 14 Y=0 Z=-14 
FFEFEEFEFEFEFEFFHEH+F ++ +444 
TYPE 1 TO CONTINUE, 0 TO STOP 

? 

1 

ENTER 1ST VECTOR (AI, A2, A3) 

? 

12,23,34 

ENTER 2ND VECTOR (B1,B2,B3) 

? 

23,41,67 

VECTOR CROSS PRODUCT 

X=147 Y=-22 Z=-37 
FFEFEEEFEEEFEFEFEFE HEHE HEA EHE HH ++44 
TYPE 1 TO CONTINUE, 0 TO STOP 

? 

0 

*END 
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VECTOR CROSS PRODUCT 


PROMPT + INPUT 
VECTORS 


CALCULATE 
VECTOR CROSS 
PRODUCT 


OUTPUT 
CROSS PRODUCT 


OUTPUT MESSAGE 
+ CONTINUE INPUT 
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VECTOR CROSS PRODUCT 


10 


REM THIS PRODUCT COMPUTES THE CROSS PRO- 
DUCT 

REM OF TWO VECTORS 

PRINT “ENTER 1ST VECTOR (A1,A2,A3)” 

INPUT A1,A2,A3 

PRINT “ENTER 2ND VECTOR (B1,B2,B3) 

INPUT B1,B2,B3 

LET X = (A2*B3) — (A3*B2) 

LET Y = (A3*B1) — (A1*B3) 

LET Z = (Al1*B2) — (A2*B1) 

PRINT “VECTOR CROSS PRODUCT” 

PRINT “X = ";X,“Y = ";Y,“Z = ";Z 

PRINT “++++++++++4+t+4++4+4+4+44 ” 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 170 

STOP 

PRINT 

GOTO 30 

END 
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VECTOR DOT PRODUCT AND NORM 


This program computes the vector dot product, also known as the 
scalar product and the norms of two vectors. 


FORMULAE 
A= (A1,A2,A3) and B (B,B:2,B3) are two vectors 


NORM of A is denoted |A| and B is denoted |B| 
JA] =VAr +A? = AP 
iB) =”Be + B? + Bs 


A+B = =A: Bi +A2B2+AxB3 


EXAMPLE 
ENTER FIRST VECTOR (Al1,A2,A3) 
? 


2,3,4 

ENTER SECOND VECTOR (B1,B2,B3) 
? 

5,6,7 

DOT PRODUCT = 56 

NORM OF 1ST VECTOR = 5.38516 
NORM OF 2ND VECTOR = 10.4880 
REAEASAKHARHRKSERHSRKERKHELKRKKSRH 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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DOT PRODUCT AND NORM 


PROMPT + INPUT 
VECTORS 


CALCULATE 
NORM OF 
VECTORS 


CALCULATE 


DOT 
PRODUCT 


OUTPUT 
RESULTANTS 


OUTPUT 
CONTINUE 
COMMAND + INPUT. 
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VECTOR DOT PRODUCT AND NORM 


10 REM THIS PROGRAM COMPUTES DOT PRODUCT 
AND 
20 REM THE NORMS OF TWO VECTORS 
30 PRINT “ENTER 1ST VECTOR (AI1,A2,A3)” 
40 INPUT A1,A2,A3 
50 PRINT “ENTER 2ND VECTOR (B1,B2,B3)” 
60 INPUT B1,B2,B3 
70 REM CALCULATE NORM OF A VECTOR 
80 LET X = SQR((A112) + (A212) + (A32)) 
90 REM CALCULATE NORM OF B VECTOR 
100 ~=LET Y = SQR((B142) + (B2t2) + (B3t2)) 
110 REM CALCULATE DOT PRODUCT 
120. ~=LET Z = (A1*B1) + (A2*B2) + (A3*B3) 
130 PRINT “DOT PRODUCT = ”;Z 
140 PRINT “NORM OF 1ST VECTOR = ”;X 
150 PRINT “NORM OF 2ND VECTOR = ”;Y 
160 PRINT MPHRRESAERLEKAASEARAHKKEHBSEERH! 
170 ~=PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
180 INPUT L 
1909 IF L=1 THEN 210 


200 STOP 
210 PRINT 
220 GOTO 30 
230 END 
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1 SF PREG TIGAL 
PLUBHANS & BALES 
1h BAsis 


From arithmetic progressicn to statistical permutations to one- 
arm bandits, here are 57 practical, useful and fun programs designed 
to help you reaiiy put your minicomputer to work! 


Game programs include blackjack, one-arm bandit, craps, and 

ot _ two space war games. Math and accounting programs include com- 

- 4. poundi:.g, straight-line depreciation, statistical permutations, instant 

is derivatives, and solutions for integrals—even a whole section of 

. |° geometric solutions fc modern-day Euclids. For history buffs, there is 
a Day-of-the-Week program for any date back through 1753. 

Each program begins with an introductory paragraph describing 
its capaoilities, and continues with a typical program sequence and 
flowchart. All programs will run on any floating point BASIC. 

The author is a veteran computer programmer with extensive 

: experience in developing software in various languages for a wicie 
‘| range of hardware systems. F 
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